OFFSET
1,1
COMMENTS
The sequence is infinite.
MATHEMATICA
nxt[n_]:= Module[{k = n + 1}, While[!IntegerQ[Sqrt[n^2 + k^2]], k++]; k]; NestList[nxt, 7, 40] (* Harvey P. Dale, May 29 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 25 2002
STATUS
approved