login
A089552
Sum of legs of primitive Pythagorean triangles having legs that add up to a square, sorted on hypotenuse.
18
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
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 *)
KEYWORD
nonn
AUTHOR
Ray Chandler, Nov 16 2003
STATUS
approved