login
A076675
Smallest a(n)>a(n-1) such that a(n)^2+a(n-1)^2 is a perfect square, a(1)=10.
0
10, 24, 32, 60, 63, 84, 112, 180, 189, 252, 275, 660, 693, 924, 1232, 1326, 1768, 1974, 2632, 4026, 5368, 6405, 8200, 8319, 11092, 11715, 15620, 16401, 19720, 20706, 20880, 20910, 24752, 24960, 25300, 26565, 29716, 29835, 33048, 35055, 41496
OFFSET
1,1
COMMENTS
The sequence is infinite.
Apart from first term, identical to A076673. [From R. J. Mathar, Sep 20 2008]
MATHEMATICA
ps[n_]:=Module[{x=n+1, n2=n^2}, While[!IntegerQ[Sqrt[n2+x^2]], x++]; x]; NestList[ps, 10, 40] (* Harvey P. Dale, Jun 22 2013 *)
CROSSREFS
Cf. A076600.
Sequence in context: A175403 A133503 A175425 * A063925 A101156 A267431
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 25 2002
STATUS
approved