A089552 Sum of legs of primitive Pythagorean triangles having legs that add up to a square, sorted on hypotenuse.

49, 289, 529, 961, 2209, 1681, 2401, 5041, 5329, 6241, 7921, 9409, 12769, 10609, 14161, 14161, 16129, 18769, 22801, 25921, 25921, 27889, 36481, 39601, 37249, 47089, 47089, 54289, 49729, 58081, 69169, 73441, 66049, 57121, 78961, 82369

Offset

1,1

Links

Ray Chandler, Table of n, a(n) for n = 1..10000

Mathematica

terms = 1000; jmax = 100; kmax = 200;
Reap[Do[If[CoprimeQ[j, k], e = j^2 - j k + k^2/2; f = j k; If[e > f, Sow[{e^2 + f^2, (j^2 - k^2/2)^2}]]], {j, 1, jmax}, {k, 2, kmax, 2}]][[2, 1]] // Sort // #[[;; terms, 2]]& (* Jean-François Alcover, Mar 05 2020 *)

Crossrefs

Cf. A088319, A088515, A088516, A088546, A089545-A089551, A089554-A089558.

Sequence in context: A239211 A198437 A144407 * A017354 A239607 A227079

Adjacent sequences: A089549 A089550 A089551 * A089553 A089554 A089555

Keyword

nonn

Author

Ray Chandler, Nov 16 2003

Status

approved