## Magic series and Magic constants

Craig Knecht sent me an email explaining magic series and magic constants. The following program lists magic series that add up to certain constants using the TableForm command in Mathematica:

Mathematica 8:

(*program for reordering of integer partitions start*)
TableForm[
Table[Table[
IntegerPartitions[
magicConstant][[Flatten[
Position[
Table[Length[IntegerPartitions[magicConstant][[i]]], {i, 1,
Length[IntegerPartitions[magicConstant]]}],
order]]]], {magicConstant, 1, 12}], {order, 1, 12}]]
(*program for reordering of integer partitions end*)

Integer Partitions

By removing the integer partitions that contain duplicates we get magic series:

Mathematica 8:

(*program for listing magic series start*)
nn = 14;
A = Table[
Table[IntegerPartitions[
magicConstant][[Flatten[
Position[
Table[Length[IntegerPartitions[magicConstant][[i]]], {i, 1,
Length[IntegerPartitions[magicConstant]]}],
order]]]], {magicConstant, 1, nn}], {order, 1, nn}];
TableForm[
Table[Table[
Table[If[
Length[DeleteDuplicates[A[[n]][[k]][[j]]]] ==
Length[A[[n]][[k]][[j]]], A[[n]][[k]][[j]], “”], {j, 1,
Length[A[[n]][[k]]]}], {n, 1, k}], {k, 1, nn}]]
(*program for listing magic series end*)

Magic Series