OFFSET
1,2
COMMENTS
Note that a square can be zero.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..200
EXAMPLE
41 is the least number having three partitions: 41 = 0+16+25 = 1+4+36 = 9+16+16.
MATHEMATICA
lim=200; nLst=Table[0, {lim^2}]; Do[n=a^2+b^2+c^2; If[n>0 && n<lim^2, nLst[[n]]++ ], {a, 0, lim}, {b, a, Sqrt[lim^2-a^2]}, {c, b, Sqrt[lim^2-a^2-b^2]}]; u=Union[nLst]; kMax=First[Complement[1+Range[u[[ -1]]], u]]-1; Table[First[Flatten[Position[nLst, k]]], {k, kMax}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jun 07 2004
STATUS
approved