cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A070094 Number of acute integer triangles with perimeter n and relatively prime side lengths.

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 2, 1, 3, 1, 2, 2, 5, 2, 5, 3, 3, 4, 6, 3, 6, 4, 7, 6, 10, 4, 10, 7, 8, 7, 10, 7, 14, 8, 12, 8, 17, 10, 17, 12, 13, 14, 20, 12, 21, 14, 18, 16, 25, 15, 23, 18, 22, 20, 30, 16, 32, 21, 29, 23, 32, 21, 38, 27, 33, 26, 43, 25
Offset: 1

Views

Author

Reinhard Zumkeller, May 05 2002

Keywords

Comments

a(n) = A051493(n) - A070102(n) - A070109(n).

Examples

			For n=10 there are A005044(10) = 2 integer triangles: [2,4,4] and [3,3,4]; both are acute, but GCD(2,4,4)>1, therefore a(9) = 1.
		

Crossrefs

A070098 Number of integer triangles with perimeter n which are acute and isosceles.

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 2, 3, 3, 4, 3, 4, 4, 4, 4, 5, 4, 5, 5, 6, 5, 6, 6, 6, 6, 7, 7, 7, 7, 8, 7, 8, 8, 8, 8, 9, 9, 9, 9, 10, 9, 10, 10, 11, 10, 11, 11, 11, 11, 12, 12, 12, 12, 13, 12, 13, 13, 13, 13, 14, 14, 14, 14, 15, 14, 15, 15, 16, 15
Offset: 1

Views

Author

Reinhard Zumkeller, May 05 2002

Keywords

Comments

Equivalently, the number of obtuse isosceles integer triangles with base n. - Charlie Marion, Jun 18 2019

Examples

			For n=9 there are A005044(9)=3 integer triangles: [1,4,4], [2,3,4] and [3,3,3]; both isosceles are also acute.
		

Crossrefs

Programs

  • Magma
    [Floor(k/2)-Floor(k/(2 + Sqrt(2)))-((k + 1) mod 2): k in [1..76]]; // Marius A. Burtea, Jun 21 2019

Formula

a(n) = A070093(n)-A024154(n); a(n) = A059169(n)-A070106(n).
a(n) = floor(n/2) - floor(n/(2 + sqrt(2))) - ((n + 1) mod 2). - David Pasino, Jun 27 2016
a(n) = A004526(n-1) - A183138(n). - R. J. Mathar, May 22 2019

A070125 Numbers n such that [A070080(n), A070081(n), A070082(n)] is an acute isosceles integer triangle with relatively prime side lengths.

Original entry on oeis.org

1, 2, 4, 6, 7, 11, 12, 15, 16, 19, 22, 23, 27, 28, 35, 39, 40, 43, 46, 47, 51, 55, 58, 63, 64, 65, 72, 73, 81, 88, 94, 95, 98, 103, 107, 108, 109, 121, 124, 135, 136, 140, 150, 151, 159, 166, 167, 170, 178, 185, 186, 189, 194, 201, 205
Offset: 1

Views

Author

Reinhard Zumkeller, May 05 2002

Keywords

Examples

			a(14)=22: [A070080(22), A070081(22), A070082(22)]=[3<5=5], A070084(22)=gcd(3,5,5)=1, A070085(22)=3^2+5^2-5^2=9>0.
		

Crossrefs

A070091 Number of isosceles integer triangles with perimeter n and relatively prime side lengths.

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 2, 1, 1, 1, 3, 1, 3, 1, 2, 2, 4, 2, 5, 2, 2, 2, 6, 2, 5, 3, 5, 3, 7, 2, 8, 4, 4, 4, 6, 3, 9, 4, 6, 4, 10, 4, 11, 5, 6, 5, 12, 4, 10, 5, 8, 6, 13, 4, 10, 6, 8, 7, 15, 4, 15, 7, 10, 8, 12, 6, 17, 8, 10, 6, 18, 6, 18, 9, 10, 9, 14, 6, 20, 8, 13
Offset: 1

Views

Author

Reinhard Zumkeller, May 05 2002

Keywords

Comments

a(n) = A051493(n) - A005044(n-6).

Examples

			For n=15 there are A005044(15)=7 integer triangles: [1,7,7], [2,6,7], [3,5,7], [3,6,6], [4,4,7], [4,5,6] and [5,5,5]: four are isosceles: [1<7=7], [3<6=6], [4=4<7] and [5=5=5], but GCD(3,6,6)>1 and GCD(5,5,5)>1, therefore a(15)=2.
		

Crossrefs

Programs

  • Mathematica
    m = 81 (* 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]] &] ;
    a[n_] := Count[triangles, t_ /; Total[t] == n && Length[Union[t]] < 3 && GCD @@ t == 1];
    Table[a[n], {n, 1, m}] (* Jean-François Alcover, Oct 05 2021 *)
Showing 1-4 of 4 results.