OFFSET
1,3
COMMENTS
Primes appear only once.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
{n,x,y}: {0,0,0},...,{4,1,1},{4,2,0},{8,0,2},{8,2,1},...,{11,1,2},{14,3,1}.
MATHEMATICA
f[upto_]:=Module[{max=Floor[Sqrt[upto]], s}, s=Sort[First[#]^2+ Times@@#+2Last[#]^2&/@Tuples[Range[0, max], {2}]]; Select[s, #<=upto&]]; f[150] (* Harvey P. Dale, Mar 28 2011 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Mar 21 2011
STATUS
approved