Pandiagonal Semiperfect Magic Cube

Author

Eric W. Weisstein
November 29, 2003

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

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

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

Figure

Map[PandiagonalSemiperfectMagicQ,SemiperfectMagicCubes/@Range[3,5],
{2}]

Order 4

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

Order 5

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