OFFSET
1,1
COMMENTS
These are conjectured values. The Mathematica program checks numbers up to 10^6.
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..200 (checked up to 10^8)
MATHEMATICA
lim=1000; nLst=Table[0, {lim^2}]; Do[n=a^2+b^2+c^2; If[n>0 && n<lim^2, nLst[[n]]++ ], {a, lim}, {b, a, Sqrt[lim^2-a^2]}, {c, b, Sqrt[lim^2-a^2-b^2]}]; Table[Last[Select[Flatten[Position[nLst, k]], Mod[ #, 4]>0&]], {k, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jun 07 2004
STATUS
approved