Magic Circle

Author

Eric W. Weisstein
February 6, 2009

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

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

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

Circles

mc={{9,
{7,22,10,24,25,18,2,30},
{19,13,23,3,11,26,29,14},
{31,1,16,15,5,17,32,21},
{12,33,20,27,28,8,6,4}},{9,
{14,30,2,29,32,6,4,21},
{19,7,18,26,17,8,12,31},
{13,22,25,11,5,28,33,1},
{23,10,24,3,15,27,20,16}},{9,
{3,24,10,23,16,20,27,15},
{11,25,22,13,1,33,28,5},
{26,18,7,19,31,12,8,17},
{29,2,30,14,21,4,6,32}}};

MagicCircleSums/@mc

MagicCircleQ/@mc

GraphicsGrid[Partition[MagicCircle/@mc,2,2,{1,1},{}],ImageSize->400]

Magic Constants

Table[n^3+n^2+n,{n,10}]

FindSequenceFunction[{3,4,39}]