OFFSET
0,2
COMMENTS
MATHEMATICA
s = 0; Reap[ Do[s = s + SquaresR[4, n]; If[IntegerQ[Sqrt[s]], Print[{n, s}]; Sow[s]], {n, 0, 5*10^6}]][[2, 1]] (* Jean-François Alcover, Jul 02 2012 *)
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
EXTENSIONS
Extended by T. D. Noe, Mar 11 2009
STATUS
approved