A070137 -id:A070137 - cp's OEIS frontend

A070084 Greatest common divisor of sides of integer triangles [A070080(n), A070081(n), A070082(n)], sorted by perimeter, sides lexicographically ordered.

1, 1, 2, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 3, 1, 1, 5, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 7, 2, 1, 2, 1, 1, 1

Offset: 1

Reinhard Zumkeller, May 05 2002

nonn

a(n)>1 iff there exists a smaller similar triangle [A070080(k), A070081(k), A070082(k)] with kA070080(n)=A070080(k)*a(n), A070081(n)=A070081(k)*a(n) and A070082(n)=A070082(k)*a(n).

R. Zumkeller, Integer-sided triangles

Cf. A051493, A005044, A070091, A070094, A070102, A070109, A070110, A070113, A070116, A070119, A070128, A070137.

maxPer = 22; maxSide = Floor[(maxPer - 1)/2]; order[{a_, b_, c_}] := (a + b + c)*maxPer^3 + a*maxPer^2 + b*maxPer + c; triangles = Reap[Do[If[a + b + c <= maxPer && c - b < a < c + b && b - a < c < b + a && c - a < b < c + a, Sow[{a, b, c}]], {a, 1, maxSide}, {b, a, maxSide}, {c, b, maxSide}]][[2, 1]]; GCD @@@ Sort[triangles, order[#1] < order[#2] &] (* Jean-François Alcover, May 27 2013 *)

a(n) = GCD(A070080(n), A070081(n), A070082(n)).

A070110 Numbers k such that [A070080(k), A070081(k), A070082(k)] is an integer triangle with relatively prime side lengths.

Original entry on oeis.org

1, 2, 4, 5, 6, 7, 8, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 25, 27, 28, 29, 30, 32, 33, 35, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 69, 70, 72, 73, 74, 75, 77

Offset: 1

Reinhard Zumkeller, May 05 2002

nonn

A070084(a(k)) = gcd(A070080(a(k)), A070081(a(k)), A070082(a(k))) = 1;

all integer triangles [A070080(a(k)), A070081(a(k)), A070082(a(k))] are mutually nonisomorphic.

			13 is a term: [A070080(13), A070081(13), A070082(13)]=[2,4,5], A070084(13)=gcd(2,4,5)=1.

Jean-François Alcover, Table of n, a(n) for n = 1..789
Reinhard Zumkeller, Integer-sided triangles

Cf. A051493, A070113, A070116, A070119, A070122, A070125, A070128, A070131, A070134, A070137, A070084.

m = 50 (* max perimeter *);
sides[per_] := Select[Reverse /@ IntegerPartitions[per, {3}, Range[ Ceiling[per/2]]], #[[1]] < per/2 && #[[2]] < per/2 && #[[3]] < per/2 &];
triangles = DeleteCases[Table[sides[per], {per, 3, m}], {}] // Flatten[#, 1] & // SortBy[Total[#] m^3 + #[[1]] m^2 + #[[2]] m + #[[1]] &];
Position[triangles, {a_, b_, c_} /; GCD[a, b, c] == 1] // Flatten (* Jean-François Alcover, Oct 04 2021 *)

A070109 Number of right integer triangles with perimeter n and relatively prime side lengths.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 1

Reinhard Zumkeller, May 05 2002

nonn

Right integer triangles have integer areas: see A070142, A051516.

a(n) is nonzero iff n is in A024364.

			For n=30 there are A005044(30) = 19 integer triangles; only one is right: 5+12+13 = 30, 5^2+12^2 = 13^2; therefore a(30) = 1.

Antti Karttunen, Table of n, a(n) for n = 1..20000 (obtained from the b-file of A078926)
Eric Weisstein's World of Mathematics, Right Triangle.
Eric Weisstein's World of Mathematics, Pythagorean Triples.
Reinhard Zumkeller, Integer-sided triangles

Cf. A070080, A070081, A070082, A051493, A070093, A070101, A070138, A070084, A070137.

unitaryDivisors[n_] := Cases[Divisors[n], d_ /; GCD[d, n/d] == 1];
A078926[n_] := Count[unitaryDivisors[n], d_ /; OddQ[d] && Sqrt[n] < d < Sqrt[2n]];
a[n_] := If[EvenQ[n], A078926[n/2], 0];
Table[a[n], {n, 1, 1716}] (* Jean-François Alcover, Oct 04 2021 *)

a(n) = A078926(n/2) if n is even; a(n)=0 if n is odd.
a(n) = A051493(n) - A070094(n) - A070102(n).
a(n) <= A024155(n).

Secondary offset added by Antti Karttunen, Oct 07 2017

A070142 Numbers n such that [A070080(n), A070081(n), A070082(n)] is an integer triangle with integer area.

Original entry on oeis.org

17, 39, 52, 116, 212, 252, 269, 368, 370, 372, 375, 493, 561, 587, 659, 839, 850, 862, 957, 972, 1156, 1186, 1196, 1204, 1297, 1582, 1599, 1629, 1912, 1920, 1955, 1971, 1988, 2115, 2352, 2555, 2574, 2713, 2774, 2778, 2790

Offset: 1

Reinhard Zumkeller, May 05 2002

nonn

			a(2)=39: [A070080(39), A070081(39), A070082(39)] = [5,5,6], area^2 = s*(s-5)*(s-5)*(s-6) with s=A070083(39)/2=(5+5+6)/2=8, area^2=8*3*3*2=16*9 is an integer square, therefore A070086(39)=area=4*3=12.

Eric Weisstein's World of Mathematics, Heronian Triangle.
R. Zumkeller, Integer-sided triangles

Cf. A070088, A070149, A070143, A070144, A070145, A051516, A069594, A069597, A070136, A070137, A070209.

maxPerim = 100; maxSide = Floor[(maxPerim - 1)/2]; order[{a_, b_, c_}] := (a + b + c)*maxPerim^3 + a*maxPerim^2 + b*maxPerim + c; triangles = Reap[ Do[ If[ a + b + c <= maxPerim && c - b < a < c + b && b - a < c < b + a && c - a < b < c + a, Sow[{a, b, c}]], {a, 1, maxSide}, {b, a, maxSide}, {c, b, maxSide}]][[2, 1]]; stri = Sort[ triangles, order[#1] < order[#2]&]; area[{a_, b_, c_}] := With[{p = (a + b + c)/2}, Sqrt[p*(p - a)*(p - b)*(p - c)]]; Position[ stri, tri_ /; IntegerQ[area[tri]]] // Flatten (* Jean-François Alcover, Feb 22 2013 *)

A070136 Numbers m such that [A070080(m), A070081(m), A070082(m)] is a right integer triangle.

Original entry on oeis.org

17, 116, 212, 370, 493, 850, 1297, 1599, 1629, 2574, 2778, 3751, 4298, 4370, 5251, 5286, 6476, 9169, 10066, 12398, 12441, 12520, 14414, 16365, 16602, 19831, 21231, 21486, 24060, 26125, 27245, 29230, 33625, 33658

Offset: 1

Reinhard Zumkeller, May 05 2002

nonn

Right integer triangles have integer areas: see A070142.

			116 is a term: [A070080(116), A070081(116), A070082(116)]=[6,8,10], A070085(116)=6^2+8^2-10^2=36+64-100=0.
212 is a term: [A070080(212), A070081(212), A070082(212)]=[5,12,13], A070085(212)=5^2+12^2-13^2=25+144-169=0.

Jean-François Alcover, Table of n, a(n) for n = 1..137
Eric Weisstein's World of Mathematics, Heronian Triangle.
Eric Weisstein's World of Mathematics, Right Triangle.
Reinhard Zumkeller, Integer-sided triangles

Cf. A024155, A070137, A070142, A070085.

m = 500 (* max perimeter *);
sides[per_] := Select[Reverse /@ IntegerPartitions[per, {3}, Range[ Ceiling[per/2]]], #[[1]] < per/2 && #[[2]] < per/2 && #[[3]] < per/2 &];
triangles = DeleteCases[Table[sides[per], {per, 3, m}], {}] // Flatten[#, 1]& // SortBy[Total[#] m^3 + #[[1]] m^2 + #[[2]] m + #[[1]] &];
Position[triangles, {a_, b_, c_} /; a^2 + b^2 == c^2] // Flatten (* Jean-François Alcover, Oct 12 2021 *)

cp's OEIS Frontend

A070084 Greatest common divisor of sides of integer triangles [A070080(n), A070081(n), A070082(n)], sorted by perimeter, sides lexicographically ordered.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A070110 Numbers k such that [A070080(k), A070081(k), A070082(k)] is an integer triangle with relatively prime side lengths.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A070109 Number of right integer triangles with perimeter n and relatively prime side lengths.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A070142 Numbers n such that [A070080(n), A070081(n), A070082(n)] is an integer triangle with integer area.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A070136 Numbers m such that [A070080(m), A070081(m), A070082(m)] is a right integer triangle.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica