OFFSET
1,1
COMMENTS
a(74) = 739405953; for n > 64, all other terms > 10^9. - Frank A. Stevenson, Jan 07 2024
LINKS
Frank A. Stevenson, Table of n, a(n) for n = 1..64
Albert H. Beiler, Review of Consecutive Hypotenuses of Pythagorean Triangles by Daniel Shanks, Mathematics of Computation, Vol. 22, No. 103, (July 1968), pp. 690-692.
MATHEMATICA
lmt = 5*10^6; hyp = {5}; Do[ mn = m^2 + n^2; hyp = Join[hyp, Table[k*mn, {k, Floor[lmt/mn]}]]; hyp = Union[hyp], {n, 2, Floor[ Sqrt[lmt]]}, {m, Min[n - 1, Floor[ Sqrt[ lmt - n^2]]]}]; f[n_] := Block[{k = 1}, While[ phk[[k]] + n - 1 != phk[[k + n - 1]], k++ ]; phk[[k]]]; Do[ Print[ f[n]], {n, 34}
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ray Chandler and Robert G. Wilson v, Nov 10 2004
STATUS
approved