OFFSET
0,1
MATHEMATICA
t={}; Do[i=c=1; x=n^2-1; While[i<n&&c!=0, If[IntegerQ[Sqrt[x-i^2]], c=0; AppendTo[t, x]]; i++], {n, 3, 520}]; t (* Jayanta Basu, Jun 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved