Multiplication Magic Square

Author

Eric W. Weisstein
April 6, 2006

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

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

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

Figures

3×3 (Arnauld)

MultiplicationMagicSquare={{128,1,32},{4,16,64},{8,256,2}};

Show[MagicSquarePlot[MultiplicationMagicSquare],ImageSize->200]

MultiplicationMagicQ[MultiplicationMagicSquare]

Times@@@({#,Transpose[#]}&[MultiplicationMagicSquare])

Smallest

mm3={{18,1,12},{4,6,9},{3,36,2}};
mm4={{1,15,24,14},{12,28,3,5},{21,6,10,4},{20,2,7,18}};

Show[GraphicsArray[MagicSquarePlot/@{mm3,mm4}]]

MultiplicationMagicQ/@{mm3,mm4}

Times@@@({#,Transpose[#]}&[#])&/@{mm3,mm4}