|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|