(Translated by https://www.hiragana.jp/)
A106410 - OEIS
login
A106410
Length of side opposite the lesser of the two angles, one being the double of the other, of a primitive integer-sided triangle, sorted on perimeter(A106499).
10
4, 9, 9, 16, 25, 16, 25, 36, 25, 49, 25, 49, 64, 49, 36, 81, 49, 64, 81, 49, 100, 49, 64, 121, 81, 100, 121, 81, 144, 64, 121, 169, 121, 81, 169, 121, 196, 81, 100, 169, 121, 144, 225, 169, 121, 196, 225, 100, 169, 256, 121, 144, 169, 121, 196, 289, 225, 169, 256, 121
OFFSET
1,1
FORMULA
a(n) = A106500(n)^2.
MATHEMATICA
sol[p_] := Solve[1 < r < s < 2 r && p == r s + s^2 && GCD[r, s] == 1, {r, s}, Integers];
Reap[For[p = 1, p <= 1000, p++, sp = sol[p]; If[sp =!= {}, Print[r^2 /. sp[[1]]]; Sow[r^2 /. sp[[1]]]]]][[2, 1]] (* Jean-François Alcover, Mar 07 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy and Ray Chandler, May 09 2005
STATUS
approved