|
%I #11 Mar 07 2020 05:07:56
%S 6,12,15,20,30,28,35,42,40,56,45,63,72,70,66,90,77,88,99,84,110,91,
%T 104,132,117,130,143,126,156,120,154,182,165,144,195,176,210,153,170,
%U 208,187,204,240,221,198,238,255,190,234,272,209,228,247,220,266,306,285
%N Length of side opposite the greater of the two angles, one being the double of the other, of a primitive integer-sided triangle, sorted on perimeter (A106499).
%F a(n) = A106500(n) * A106501(n).
%t sol[p_] := Solve[1 < r < s < 2 r && p == r s + s^2 && GCD[r, s] == 1, {r, s}, Integers];
%t Reap[For[p = 1, p <= 1000, p++, sp = sol[p]; If[sp =!= {}, Print[r s /. sp[[1]]]; Sow[r s /. sp[[1]]]]]][[2, 1]] (* _Jean-François Alcover_, Mar 07 2020 *)
%Y Cf. A106499-A106506, A106410, A106430.
%K nonn
%O 1,1
%A _Lekraj Beedassy_ and _Ray Chandler_, May 09 2005
|
