A106430 Ordered and uniqued length of side opposite the greater of the two angles, one being the double of the other, of a primitive integer-sided triangle.
6, 12, 15, 20, 28, 30, 35, 40, 42, 45, 56, 63, 66, 70, 72, 77, 84, 88, 90, 91, 99, 104, 110, 117, 120, 126, 130, 132, 143, 144, 153, 154, 156, 165, 170, 176, 182, 187, 190, 195, 198, 204, 208, 209, 210, 220, 221, 228, 231, 234, 238, 240, 247, 255, 260, 266, 272, 273, 276, 285, 286, 299
Offset: 1
Keywords
Links
- Albert Lau, Table of n, a(n) for n = 1..10539
Programs
-
Mathematica
aMax = 300; Select[Sequence @@@ Table[{m (m + n), n (m + n), m n}, {m, Sqrt[aMax]}, {n, Min[m - 1, aMax/m - m]}], GCD @@ # == 1 &] // Sort; %[[;; , 1]] (* Albert Lau, Sep 19 2014 *)
Formula
Values r*s, where r
The other 2 sides are s^2 and r^2-s^2. - Albert Lau, Sep 19 2014
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
Comments
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 *)
A106506 Length of side common to the two angles, one being the double of the other, of a primitive integer-sided triangle, sorted on perimeter (A106499).
5, 7, 16, 9, 11, 33, 24, 13, 39, 15, 56, 32, 17, 51, 85, 19, 72, 57, 40, 95, 21, 120, 105, 23, 88, 69, 48, 115, 25, 161, 75, 27, 104, 175, 56, 135, 29, 208, 189, 87, 168, 145, 31, 120, 203, 93, 64, 261, 155, 33, 240, 217, 192, 279, 165, 35, 136, 231, 105, 320, 72, 37, 272
Offset: 1
Keywords
Programs
-
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[s^2 - r^2 /. sp[[1]]]; Sow[s^2 - r^2 /. sp[[1]]]]]][[2, 1]] (* Jean-François Alcover, Mar 07 2020 *)
Extensions
Extended by Ray Chandler, May 09 2005
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).
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
Keywords
Programs
-
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 *)
Formula
a(n) = A106500(n)^2.
A343065 Side b of integer-sided primitive triangles (a, b, c) whose angle B = 2*C.
6, 12, 20, 30, 42, 56, 15, 72, 90, 110, 132, 35, 156, 182, 210, 240, 63, 28, 272, 306, 342, 40, 380, 99, 420, 462, 506, 552, 143, 600, 70, 650, 702, 756, 45, 195, 88, 812, 870, 930, 992, 255, 1056, 1122, 130, 1190, 1260, 77, 323, 1332, 154, 1406, 1482, 1560, 399, 1640, 1722, 66, 1806, 208, 1892, 117, 483, 1980, 2070, 238
Offset: 1
Keywords
Comments
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.
This sequence is not increasing because a(7) = 15 < a(6) = 56 (A106430).
If in triangle ABC, B = 2*C, then the corresponding metric relation between sides is a*c + c^2 = c * (a + c) = b^2.
Equivalently, length of side opposite to the greater of the two angles, one being the double of the other.
For the corresponding primitive triples and miscellaneous properties and references, see A343063.
Examples
According to inequalities between a, b, c, there exist 3 types of such triangles: c < a < b for the first triple (5, 6, 4) with b = 6. c < b < a for the second triple (16, 15, 9) with b = 15. a < c < b for the seventh triple (7, 12, 9) with b = 12.
Links
Crossrefs
Programs
-
Maple
for a from 2 to 100 do for c from 3 to floor(a^2/2) do d := c*(a+c); if issqr(d) and igcd(a,sqrt(d),c)=1 and abs(a-c)
Formula
a(n) = A343063(n, 2).
A106500 Values r associated with A106499.
2, 3, 3, 4, 5, 4, 5, 6, 5, 7, 5, 7, 8, 7, 6, 9, 7, 8, 9, 7, 10, 7, 8, 11, 9, 10, 11, 9, 12, 8, 11, 13, 11, 9, 13, 11, 14, 9, 10, 13, 11, 12, 15, 13, 11, 14, 15, 10, 13, 16, 11, 12, 13, 11, 14, 17, 15, 13, 16, 11, 17, 18, 13, 17, 13, 16, 19, 17, 12, 15, 13, 19, 14, 17, 20, 15, 13, 16, 19
Offset: 1
Keywords
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 <= 2000, p++, sp = s[p]; If[sp =!= {}, Print[r /. sp[[1]] ]; Sow[r /. sp[[1]]]]]][[2, 1]] (* Jean-François Alcover, Mar 06 2020 *)
Extensions
Extended by Ray Chandler, May 09 2005
A106505 Ordered and uniqued length of side common to the two angles, one being the double of the other, of a primitive integer-sided triangle.
5, 7, 9, 11, 13, 15, 16, 17, 19, 21, 23, 24, 25, 27, 29, 31, 32, 33, 35, 37, 39, 40, 41, 43, 45, 47, 48, 49, 51, 53, 55, 56, 57, 59, 61, 63, 64, 65, 67, 69, 71, 72, 73, 75, 77, 79, 80, 81, 83, 85, 87, 88, 89, 91, 93, 95, 96, 97, 99, 101, 103, 104, 105, 107, 109, 111, 112
Offset: 1
Keywords
Comments
The terms are proposed without repetition. For example, there exist two such triangles with a length of side = 33. They correspond respectively to s^2 - r^2 = 33 (see formula) with (r, s) = (4, 7) and sides (33, 28, 16), and the other triangle with (r, s) = (16, 17) and sides (33, 272, 256). Lengths = 39, 51, 57, 69, 75, ... correspond to two distinct triangles ... The lengths of these sides are proposed with repetition in A343064. - Bernard Schott, Apr 22 2021
Crossrefs
Formula
Values s^2 - r^2, where r
Conjecture: for n>2, a(n+5) = a(n) + 8. - Ralf Stephan, Nov 16 2010.
Empirical g.f.: -x*(x^7+x^6+3*x^5-2*x^4-2*x^3-2*x^2-2*x-5) / ((x-1)^2*(x^4+x^3+x^2+x+1)). - Colin Barker, Oct 05 2013
Extensions
Extended by Ray Chandler, May 09 2005
A106501 Values s associated with A106499.
3, 4, 5, 5, 6, 7, 7, 7, 8, 8, 9, 9, 9, 10, 11, 10, 11, 11, 11, 12, 11, 13, 13, 12, 13, 13, 13, 14, 13, 15, 14, 14, 15, 16, 15, 16, 15, 17, 17, 16, 17, 17, 16, 17, 18, 17, 17, 19, 18, 17, 19, 19, 19, 20, 19, 18, 19, 20, 19, 21, 19, 19, 21, 20, 22, 21, 20, 21, 23, 22, 23, 21, 23, 22
Offset: 1
Keywords
Extensions
Extended by Ray Chandler, May 09 2005
A106502 Shortest side of primitive integer-sided triangle having an angle twice another, sorted on perimeter (A106499).
4, 7, 9, 9, 11, 16, 24, 13, 25, 15, 25, 32, 17, 49, 36, 19, 49, 57, 40, 49, 21, 49, 64, 23, 81, 69, 48, 81, 25, 64, 75, 27, 104, 81, 56, 121, 29, 81, 100, 87, 121, 144, 31, 120, 121, 93, 64, 100, 155, 33, 121, 144, 169, 121, 165, 35, 136, 169, 105, 121, 72, 37, 169, 111, 169
Offset: 1
Keywords
Comments
Triple is (A106502,106503,106504).
Extensions
Corrected and extended by Ray Chandler, May 09 2005
A106503 Middle side of primitive integer-sided triangle having an angle twice another, sorted on perimeter (A106499).
5, 9, 15, 16, 25, 28, 25, 36, 39, 49, 45, 49, 64, 51, 66, 81, 72, 64, 81, 84, 100, 91, 104, 121, 88, 100, 121, 115, 144, 120, 121, 169, 121, 144, 169, 135, 196, 153, 170, 169, 168, 145, 225, 169, 198, 196, 225, 190, 169, 256, 209, 217, 192, 220, 196, 289, 225, 231
Offset: 1
Keywords
Extensions
Corrected and extended by Ray Chandler, May 09 2005
Comments