Bimagic Square

Author

Eric W. Weisstein
April 6, 2006

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

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

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

Order 6 (Nonconecutive)

WroblewskiBimagic = {
{17,36,55,124,62,114},
{58,40,129,50,111,20},
{108,135,34,44,38,49},
{87,98,92,102,1,28},
{116,25,86,7,96,78},
{22,74,12,81,100,119}};

BimagicQ[WroblewskiBimagic]

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

Order 8

Map[MagicQ,{#,#^2,#^3}&/@MagicSquares[8],{2}]

Show[GraphicsArray[MagicSquarePlot/@MagicSquares[8],
TextStyle->{FontFamily->"Times"}
]]

Order 9

MagicQ/@({#,#^2,#^3}&[MagicSquares[9][[1]]])

Show[MagicSquarePlot[MagicSquares[9][[1]]],
TextStyle->{FontFamily->"Times"}
]