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