cp's OEIS Frontend

A336755 Primitive triples for integer-sided triangles whose sides a < b < c are in arithmetic progression.

%I A336755 #31 Feb 28 2024 15:13:57
%S A336755 2,3,4,3,4,5,3,5,7,4,5,6,5,6,7,4,7,10,5,7,9,6,7,8,5,8,11,7,8,9,5,9,13,
%T A336755 7,9,11,8,9,10,7,10,13,9,10,11,6,11,16,7,11,15,8,11,14,9,11,13,10,11,
%U A336755 12,7,12,17,11,12,13,7,13,19,8,13,18,9,13,17,10,13,16,11,13,15,12,13,14
%N A336755 Primitive triples for integer-sided triangles whose sides a < b < c are in arithmetic progression.
%C A336755 The triples are displayed in increasing order of perimeter (equivalently in increasing order of middle side) and if perimeters coincide then by increasing order of the smallest side; also, each triple (a, b, c) is in increasing order.
%C A336755 When b is prime, all the corresponding triples in A336750 are primitive triples.
%C A336755 The only right integer triangle in the data corresponds to the triple (3, 4, 5).
%C A336755 The number of primitive such triangles whose middle side = b is equal to A023022(b) for b >= 3.
%C A336755 For all the triples (primitive or not), miscellaneous properties and references, see A336750.
%H A336755 Neal Gersh Tolunsky, <a href="/A336755/b336755.txt">Table of n, a(n) for n = 1..10000</a>
%e A336755 The table begins:
%e A336755   2, 3, 4;
%e A336755   3, 4, 5;
%e A336755   3, 5, 7;
%e A336755   4, 5, 6;
%e A336755   5, 6, 7;
%e A336755   4, 7, 10;
%e A336755   5, 7, 9;
%e A336755   6, 7, 8;
%e A336755 The smallest such primitive triple is (2, 3, 4).
%e A336755 The only triangle with perimeter = 12 corresponds to the Pythagorean triple: (3, 4, 5).
%e A336755 There exist two triangles with perimeter = 15 corresponding to triples (3, 5, 7) and (4, 5, 6).
%e A336755 There exists only one primitive triangle with perimeter = 18 whose triple is (5, 6, 7), because (4, 6, 8) is not a primitive triple.
%p A336755 for b from 3 to 20 do
%p A336755 for a from b-floor((b-1)/2) to b-1 do
%p A336755 c := 2*b - a;
%p A336755 if gcd(a,b)=1 and gcd(b,c)=1 then print(a,b,c); end if;
%p A336755 end do;
%p A336755 end do;
%t A336755 Select[Flatten[Table[{a, b, 2*b-a}, {b, 3, 20}, {a, b-Floor[(b-1)/2], b-1}], 1], GCD @@ # == 1 &] (* _Paolo Xausa_, Feb 28 2024 *)
%o A336755 (PARI) tabf(nn) = {for (b = 3, nn, for (a = b-floor((b-1)/2), b-1, my(c = 2*b - a); if (gcd([a, b, c]) == 1, print(a, " ", b, " ", c););););} \\ _Michel Marcus_, Sep 08 2020
%Y A336755 Cf. A336750 (triples, primitive or not), this sequence (primitive triples), A336756 (perimeter of primitive triangles), A336757 (number of such primitive triangles whose perimeter = n).
%Y A336755 Cf. A103606 (similar for primitive Pythagorean triples).
%Y A336755 Cf. A023022.
%K A336755 nonn,tabf
%O A336755 1,1
%A A336755 _Bernard Schott_, Sep 07 2020