|
|
|
|
(in formats from the Mathematica program, from Wolfram Research, Inc.) MagicNKZ =
Table[ MagicNKZ, {n,1,7},{k,0,11},{z,0,5}]//MatrixForm
Expand[Table[ MagicNKZ, {z,0,10},{k,k,k},{n,1,10}]]//TableForm
Expand[Table[ MagicNKZ, {k,0,12},{z,z,z},{n,1,10}]]//TableForm
FullSimplify[Table[ MagicNKZ, {k,0,12},{z,z,z},{n,1,10}]]//TableForm
FullSimplify[Table[ MagicNKZ, {z,0,5},{n,n,n},{k,0,8}]]//TableFormz=0:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=1:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=2:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=3:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=4:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=5:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
Expand[Table[ MagicNKZ, {z,0,5},{n,n,n},{k,0,8}]]//TableFormz=0:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=1:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
z=2:
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=3:
k=0
k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=4:k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
z=5:k=1
k=2
k=3
k=4
k=5
k=6
k=7
k=8
|
Send mail to
Cecilia@noticingnumbers.net with
questions or comments about this web site.
|