Pandiagonal Perfect Magic Cube

Author

Eric W. Weisstein
November 29, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/PandiagonalPerfectMagicCube.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/PandiagonalPerfectMagicCube.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Figure

Map[PandiagonalSemiperfectMagicQ,PerfectMagicCubes/@Range[5,8],
{2}]

PandiagonalPerfectMagicQ/@First/@PerfectMagicCubes/@{16,25,27,32,64}

Order 4

Show[GraphicsArray[MagicSquarePlot[#,TextStyle->{FontFamily->"Times"}]&/@SemiperfectMagicCubes[4][[1]]],
ImageSize->500]

Order 5

Show[GraphicsArray[MagicSquarePlot[#,TextStyle->{FontFamily->"Times"}]&/@SemiperfectMagicCubes[5][[1]]],
ImageSize->500]