A106499 Ordered perimeter of primitive integer-sided triangle one of whose angles is twice another.
15, 28, 40, 45, 66, 77, 84, 91, 104, 120, 126, 144, 153, 170, 187, 190, 198, 209, 220, 228, 231, 260, 273, 276, 286, 299, 312, 322, 325, 345, 350, 378, 390, 400, 420, 432, 435, 442, 459, 464, 476, 493, 496, 510, 522, 527, 544, 551, 558, 561, 570, 589, 608
Offset: 1
Keywords
Links
- Jean-François Alcover, Table of n, a(n) for n = 1..869
Programs
-
Mathematica
s[p_] := Solve[1 < r < s < 2r && p == r s + s^2 && GCD[r, s] == 1, {r, s}, Integers]; Reap[For[p = 1, p <= 10000, p++, sp = s[p]; If[sp =!= {}, Sow[p]; Print[p, " ", {r s, s^2 - r^2, r^2} /. sp[[1]]]]]][[2, 1]] (* Jean-François Alcover, Mar 06 2020 *)
Comments