|
%I #11 Apr 03 2023 14:36:11
%S 6,15,20,35,28,42,45,63,88,77,66,72,117,99,104,91,130,110,165,120,143,
%T 204,187,170,156,153,221,247,195,228,266,209,190,238,210,273,285,231,
%U 255,368,336,345,304,322,391,272,299,276,425,357,450,323,400,414,513,350,325,342,475,459
%N Side c of integer-sided primitive triangles (a, b, c) where side a is the harmonic mean of the 2 other sides b and c, i.e., 2/a = 1/b + 1/c with b < a < c.
%C The triples (a, b, c) are displayed in increasing order of side a, and if sides a coincide then in increasing order of the side b.
%C The sequence is not increasing because a(4) = 35 > a(5) = 28, but, these sides c are listed in increasing order in A020886.
%C For the corresponding primitive triples and miscellaneous properties and references, see A343891.
%F a(n) = A343891(n, 3).
%e a(3) = 20, because the third triple is (15, 12, 20) with side c = 20, satisfying 1/20 = 2/15 - 1/12 and 15-12 < 20 < 15+12.
%p for a from 4 to 200 do
%p for b from floor(a/2)+1 to a-1 do
%p c := a*b/(2*b-a);
%p if c=floor(c) and igcd(a,b,c)=1 and c-b<a then print(c); end if;
%p end do;
%p end do;
%Y Cf. A343891 (triples), A020883 (side a), A343892 (side b), A343894 (perimeter).
%Y Cf. A020886 (sides c ordered).
%K nonn
%O 1,1
%A _Bernard Schott_, May 06 2021
|
