OFFSET
1,1
LINKS
MATHEMATICA
nn = 70; lim = nn^2; t = Table[0, {lim}]; Do[k = x^2 + y^2; If[0 < k <= lim, t[[k]]++], {x, 0, nn}, {y, x, nn}]; Flatten[Position[t, 3]] (* T. D. Noe, Jun 20 2012 *)
Select[Range[4500], Length[PowersRepresentations[#, 2, 2]]==3&] (* Harvey P. Dale, Jun 02 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane and J. C. Lagarias (lagarias(AT)umich.edu)
STATUS
approved