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