OFFSET
1,1
COMMENTS
The sequence is infinite.
FORMULA
a(n)=A076671(n), n>1. [From R. J. Mathar, Sep 20 2008]
MATHEMATICA
ps[n_]:=Module[{k=n+1, n2=n^2}, While[!IntegerQ[Sqrt[n2+k^2]], k++]; k]; NestList[ ps, 9, 40] (* Harvey P. Dale, May 01 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 25 2002
STATUS
approved