Pentamagic Square

Author

Eric W. Weisstein
November 20, 2003

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

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

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

Initialization

NestList[a#&,a,5]

Li Wen's 729

s=MagicSquares[729][[1]];
MagicQ/@NestList[s#&,s,5]//Timing

Boyer's 1024

s=MagicSquares[1024][[1]];
MagicQ/@NestList[s#&,s,5]//Timing