OFFSET
1,1
LINKS
EXAMPLE
30 = 0^2 + 1^1 + 2^2 + 3^2 + 4^2.
MATHEMATICA
nn = 15; Select[Union[Flatten[Table[a^2 + b^2 + c^2 + d^2 + e^2, {a, 0, nn}, {b, a + 1, nn}, {c, b + 1, nn}, {d, c + 1, nn}, {e, d + 1, nn}]]], # <= nn^2 &] (* T. D. Noe, Aug 17 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved