OFFSET
1,2
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Sum of Squares Function.
MATHEMATICA
Module[{nn=70, sq}, sq=Flatten[{Total[#], Abs[#[[1]]-#[[2]]]}&/@Tuples[ Range[ 3nn]^2, 2]]//Union; Take[Complement[Range[Max[sq]], sq], nn]] (* Harvey P. Dale, Nov 04 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Aug 19 2004
STATUS
approved