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.

Previous Showing 11-20 of 44 results. Next

A135565 Number of line segments in regular n-gon with all diagonals drawn.

Original entry on oeis.org

0, 1, 3, 8, 20, 42, 91, 136, 288, 390, 715, 756, 1508, 1722, 2835, 3088, 4896, 4320, 7923, 8360, 12180, 12782, 17963, 16344, 25600, 26494, 35451, 36456, 47908, 38310, 63395, 64800, 82368, 84082, 105315, 99972, 132756, 135014, 165243, 167720
Offset: 1

Views

Author

Keywords

Comments

A line segment (or edge) is considered to end at any vertex where two or more chords meet.
I.e., edge count of the n-polygon diagonal intersection graph. - Eric W. Weisstein, Mar 08 2018

Crossrefs

Sequences related to chords in a circle: A001006, A054726, A006533, A006561, A006600, A007569, A007678. See also entries for chord diagrams in Index file.

Programs

  • Mathematica
    del[m_, n_] := Boole[Mod[n, m] == 0];
    A007569[n_] :=
    If[n < 4, n,
      n + Binomial[n, 4] + del[2, n] (-5 n^3 + 45 n^2 - 70 n + 24)/24 -
       del[4, n] (3 n/2) + del[6, n] (-45 n^2 + 262 n)/6 +
       del[12, n]*42 n + del[18, n]*60 n + del[24, n]*35 n -
       del[30, n]*38 n - del[42, n]*82 n - del[60, n]*330 n -
       del[84, n]*144 n - del[90, n]*96 n - del[120, n]*144 n -
       del[210, n]*96 n];
    A007678[n_] :=
      If[n < 3,
       0, (n^4 - 6 n^3 + 23 n^2 - 42 n + 24)/24 +
        del[2, n] (-5 n^3 + 42 n^2 - 40 n - 48)/48 - del[4, n] (3 n/4) +
        del[6, n] (-53 n^2 + 310 n)/12 + del[12, n] (49 n/2) +
        del[18, n]*32 n + del[24, n]*19 n - del[30, n]*36 n -
        del[42, n]*50 n - del[60, n]*190 n - del[84, n]*78 n -
        del[90, n]*48 n - del[120, n]*78 n - del[210, n]*48 n];
    a[n_] := A007569[n] + A007678[n] - 1;
    Array[a, 40] (* Jean-François Alcover, Sep 07 2017, after Max Alekseyev, using T. D. Noe's code for A007569 and A007678 *)

Formula

a(n) = A007569(n) + A007678(n) - 1. - Max Alekseyev

A331450 Irregular triangle read by rows: Take a regular n-sided polygon (n>=3) with all diagonals drawn, as in A007678. Then T(n,k) = number of k-sided polygons in that figure for k = 3, 4, ..., max_k.

Original entry on oeis.org

1, 4, 10, 0, 1, 18, 6, 35, 7, 7, 0, 1, 56, 24, 90, 36, 18, 9, 0, 0, 1, 120, 90, 10, 176, 132, 44, 22, 276, 168, 377, 234, 117, 39, 0, 13, 0, 0, 0, 0, 1, 476, 378, 98, 585, 600, 150, 105, 15, 0, 0, 0, 0, 0, 0, 0, 1, 848, 672, 128, 48, 1054, 901, 357, 136, 17, 34, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1404, 954, 72, 18, 18, 1653, 1444, 646, 190, 57, 38, 2200, 1580, 580, 120, 0, 20, 2268, 2520, 903, 462, 21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
Offset: 3

Views

Author

Keywords

Comments

Computed by Scott R. Shannon, Jan 24 2020
See A331451 for a version of this triangle giving the counts for k = 3 through n.
Mitosis of convex polygons, by Scott R. Shannon and N. J. A. Sloane, Dec 13 2021 (Start)
Borrowing a term from biology, we can think of this process as the "mitosis" of a regular polygon. Row 6 of this triangle shows that a regular hexagon "mitoses" into 18 triangles and 4 quadrilaterals, which we denote by 3^18 4^6.
What if we start with a convex but not necessarily regular n-gon? Let M(n) denote the number of different decompositions into cells that can be obtained. For n = 3, 4, and 5 there is only one possibility. For n = 6 there are two possibilities, 3^18 4^6 and 3^19 4^3 5^3. For n = 7 there are at least 11 possibilities. So the sequence M(n) for n >= 3 begins 1, 1, 1, 2, >=11, ...
The links below give further information. See also A350000. (End)

Examples

			A hexagon with all diagonals drawn contains 18 triangles and 6 quadrilaterals, so row 6 is [18, 6].
Triangle begins:
  1,
  4,
  10, 0, 1,
  18, 6,
  35, 7, 7, 0, 1,
  56, 24,
  90, 36, 18, 9, 0, 0, 1,
  120, 90, 10,
  176, 132, 44, 22, 0, 0, 0, 0, 1
  276, 168,
  377, 234, 117, 39, 0, 13, 0, 0, 0, 0, 1,
  476, 378, 98,
  585, 600, 150, 105, 15, 0, 0, 0, 0, 0, 0, 0, 1,
  848, 672, 128, 48,
  1054, 901, 357, 136, 17, 34, 0, 0, 0, 0, 0, 0, 0, 0, 1,
  1404, 954, 72, 18, 18,
  1653, 1444, 646, 190, 57, 38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
  2200, 1580, 580, 120, 0, 20,
  2268, 2520, 903, 462, 21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
  2992, 2860, 814, 66, 44, 44,
  3749, 2990, 1564, 644, 115, 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
  ...
The row sums are A007678, the first column is A062361.
		

Crossrefs

Extensions

Added "regular" to definition. - N. J. A. Sloane, Mar 06 2021

A092866 Number of intersections inside an equilateral triangular figure formed by the straight line segments mutually connecting all vertices and all points that divide the sides into n equal parts. If three or more lines meet at an interior point this intersection is counted only once.

Original entry on oeis.org

0, 4, 49, 166, 543, 1237, 2511, 4762, 7777, 12262, 18933, 28504, 39078, 56065, 73879, 95962, 124653, 164761, 203259, 258646, 311233, 377932, 458793, 560755, 648936, 775258, 908893, 1056520, 1215087, 1428193, 1607871, 1866007, 2111488, 2399545, 2694010, 3040201, 3356433, 3811387, 4253074, 4720102, 5180466, 5806687, 6324906, 7035949, 7690900, 8392036, 9180330, 10136287, 10894551, 11930833
Offset: 1

Views

Author

Hugo Pfoertner, Mar 10 2004

Keywords

Comments

A detailed example for n=5 is given at the Pfoertner link.

Examples

			a(2)=4 because there are 3 intersection points between the triangle medians and the line segments connecting the midpoints of the sides plus the intersection of the 3 medians at the centroid.
		

Crossrefs

Cf. A092867 (regions formed by the diagonals), A274585 (points both inside and on the triangle sides), A274586 (edges).
Cf. A006561 (number of intersections of diagonals of regular n-gon), A091908 (intersections between line segments connecting vertices with subdivision points on opposite side).
If the boundary points are in general position, we get A367117, A213827, A367118, A367119. - N. J. A. Sloane, Nov 09 2023

Programs

  • Maple
    Inter:= proc(p1x,p1y,p2x,p2y,q1x,q1y,q2x,q2y)
      local det,x,y;
      det:= p1x*q1y-p1x*q2y-p1y*q1x+p1y*q2x-p2x*q1y+p2x*q2y+p2y*q1x-p2y*q2x;
      if det = 0 then return NULL fi;
      x:= (p1x*p2y*q1x-p1x*p2y*q2x-p1x*q1x*q2y+p1x*q1y*q2x-p1y*p2x*q1x+p1y*p2x*q2x+p2x*q1x*q2y-p2x*q1y*q2x)/det;
      y:= (p1x*p2y*q1y-p1x*p2y*q2y-p1y*p2x*q1y+p1y*p2x*q2y-p1y*q1x*q2y+p1y*q1y*q2x+p2y*q1x*q2y-p2y*q1y*q2x)/det;
      if x >0 and y > 0 and x + y < 1 then [x,y]
      else NULL
      fi
    end proc:
    F:= proc(n) local A,B,C,Pairs,Pts;
         A:= [seq([j/n,0],j=0..n)];
         B:= [seq([0,j/n],j=0..n)];
         C:= [seq([j/n,1-j/n],j=0..n)];
         Pairs:= [seq(seq([A[i],B[j]],i=2..n+1),j=2..n+1),
                  seq(seq([A[i],C[j]],i=1..n),j=1..n),
                  seq(seq([B[i],C[j]],i=1..n),j=2..n+1)];
         Pts:= {seq(seq(Inter(op(Pairs[i][1]),op(Pairs[i][2]),op(Pairs[j][1]),op(Pairs[j][2])),j=1..i-1),i=2..nops(Pairs))};
         nops(Pts);
    end proc:
    map(F, [$1..20]); # Robert Israel, Jun 30 2016
  • Mathematica
    Inter[{p1x_, p1y_}, {p2x_, p2y_}, {q1x_, q1y_}, {q2x_, q2y_}] := Module[ {det, x, y}, det = p1x q1y - p1x q2y - p1y q1x + p1y q2x - p2x q1y + p2x q2y + p2y q1x - p2y q2x; If[det == 0, Return[Nothing]]; x = (p1x p2y q1x - p1x p2y q2x - p1x q1x q2y + p1x q1y q2x - p1y p2x q1x + p1y p2x q2x + p2x q1x q2y - p2x q1y q2x)/det; y = (p1x p2y q1y - p1x p2y q2y - p1y p2x q1y + p1y p2x q2y - p1y q1x q2y + p1y q1y q2x + p2y q1x q2y - p2y q1y q2x)/det; If[x > 0 && y > 0 && x + y < 1, {x, y}, Nothing]];
    F[n_] := F[n] = Module[{A, B, K, Pairs, Pts}, A = Table[{j/n, 0}, {j, 0, n}]; B = Table[{0, j/n}, {j, 0, n}]; K = Table[{j/n, 1 - j/n}, {j, 0, n}]; Pairs = {Table[Table[{A[[i]], B[[j]]}, {i, 2, n+1}], {j, 2, n+1}], Table[Table[{A[[i]], K[[j]]}, {i, 1, n}], {j, 1, n}], Table[Table[ {B[[i]], K[[j]]}, {i, 1, n}], {j, 2, n+1}]} // Flatten[#, 2]&; Pts = Table[Table[Inter[Pairs[[i, 1]], Pairs[[i, 2]], Pairs[[j, 1]], Pairs[[j, 2]]], {j, 1, i-1}], {i, 2, Length[Pairs]}]; Flatten[Pts, 1] // Union // Length];
    Table[Print[n, " ", F[n]]; F[n], {n, 1, 20}] (* Jean-François Alcover, Apr 11 2019, after Robert Israel *)

Formula

a(n) = A274585(n) - 3n.

Extensions

a(1) = 0 prepended by Max Alekseyev, Jun 29 2016
a(4) corrected and a(6)-a(20) added by Cynthia Miaina Rasamimanananivo, Jun 28 2016
a(20) corrected by Robert Israel, Jun 30 2016
a(21)-a(50) from Cynthia Miaina Rasamimanananivo, Jun 30 - Aug 23, 2016
"Equilateral" added to definition by N. J. A. Sloane, May 13 2020

A006533 Place n equally-spaced points around a circle and join every pair of points by a chord; this divides the circle into a(n) regions.

Original entry on oeis.org

1, 2, 4, 8, 16, 30, 57, 88, 163, 230, 386, 456, 794, 966, 1471, 1712, 2517, 2484, 4048, 4520, 6196, 6842, 9109, 9048, 12951, 14014, 17902, 19208, 24158, 21510, 31931, 33888, 41449, 43826, 52956, 52992, 66712, 70034, 82993, 86840, 102091, 97776, 124314, 129448, 149986, 155894, 179447, 179280
Offset: 1

Views

Author

N. J. A. Sloane, Bjorn Poonen (poonen(AT)math.princeton.edu)

Keywords

Comments

This sequence and A007678 are two equivalent ways of presenting the same sequence. - N. J. A. Sloane, Jan 23 2020
In contrast to A007678, which only counts the polygons, this sequence also counts the n segments of the circle bounded by the arc of the circle and the straight line, both joining two neighboring points on the circle. Therefore a(n) = A007678(n) + n. - M. F. Hasler, Dec 12 2021

References

  • Jean Meeus, Wiskunde Post (Belgium), Vol. 10, 1972, pp. 62-63.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Sequences related to chords in a circle: A001006, A054726, A006533, A006561, A006600, A007569, A007678. See also entries for chord diagrams in Index file.

Programs

  • Mathematica
    del[m_,n_]:=If[Mod[n,m]==0,1,0];
    R[n_]:=(n^4-6n^3+23n^2-18n+24)/24 + del[2,n](-5n^3+42n^2-40n-48)/48 - del[4,n](3n/4) + del[6,n](-53n^2+310n)/12 + del[12,n](49n/2) + del[18,n]*32n + del[24,n]*19n - del[30,n]*36n - del[42,n]*50n - del[60,n]*190n - del[84,n]*78n - del[90,n]*48n - del[120,n]*78n - del[210,n]*48n;
    Table[R[n], {n,1,1000}] (* T. D. Noe, Dec 21 2006 *)
  • PARI
    apply( {A006533(n)=if(n%2, (((n-6)*n+23)*n-18)*n/24+1, ((n^3/2 -17*n^2/4 +22*n -if(n%4, 19, 28) +!(n%6)*(310 -53*n))/12 +!(n%12)*49/2 +!(n%18)*32 +!(n%24)*19 -!(n%30)*36 -!(n%42)*50 -!(n%60)*190 -!(n%84)*78 -!(n%90)*48 -!(n%120)*78 -!(n%210)*48)*n)}, [1..44]) \\ M. F. Hasler, Aug 06 2021
  • Python
    def d(n,m): return not n % m
    def A006533(n): return (1176*d(n,12)*n - 3744*d(n,120)*n + 1536*d(n,18)*n - d(n,2)*(5*n**3 - 42*n**2 + 40*n + 48) - 2304*d(n,210)*n + 912*d(n,24)*n - 1728*d(n,30)*n - 36*d(n,4)*n - 2400*d(n,42)*n - 4*d(n,6)*n*(53*n - 310) - 9120*d(n,60)*n - 3744*d(n,84)*n - 2304*d(n,90)*n + 2*n**4 - 12*n**3 + 46*n**2 - 36*n)//48 + 1 # Chai Wah Wu, Mar 08 2021
    

Formula

Poonen and Rubinstein give an explicit formula for a(n) (see Mma code).
a(n) = A007678(n) + n. - T. D. Noe, Dec 23 2006

Extensions

Added more terms from b-file. - N. J. A. Sloane, Jan 23 2020
Edited definition. - N. J. A. Sloane, Mar 17 2024

A103314 Total number of subsets of the n-th roots of 1 that add to zero.

Original entry on oeis.org

1, 1, 2, 2, 4, 2, 10, 2, 16, 8, 34, 2, 100, 2, 130, 38, 256, 2, 1000, 2, 1156, 134, 2050, 2, 10000, 32, 8194, 512, 16900, 2, 146854, 2, 65536, 2054, 131074, 158, 1000000, 2, 524290, 8198, 1336336, 2, 11680390, 2, 4202500, 54872, 8388610, 2, 100000000, 128
Offset: 0

Views

Author

Wouter Meeussen, Mar 11 2005

Keywords

Comments

The term a(0) = 1 counts the single zero-sum subset of the (by convention) empty set of zeroth roots of 1.
I am inclined to believe that if S is a zero-sum subset of the n-th roots of 1, that n can be built up from (zero-sum) cyclically balanced subsets via the following operations: 1. A U B, where A and B are disjoint. 2. A - B, where B is a subset of A. - David W. Wilson, May 19 2005
Lam and Leung's paper, though interesting, does not apply directly to this sequence because it allows repetitions of the roots in the sums.
Observe that 2^n=a(n) (mod n). Sequence A107847 is the quotient (2^n-a(n))/n. - T. D. Noe, May 25 2005
From Max Alekseyev, Jan 31 2008: (Start)
Every subset of the set U(n) = { 1=r^0, r^1, ..., r^(n-1) } of the n-th power roots of 1 (where r is a fixed primitive root) defines a binary word w of the length n where the j-th bit is 1 iff the root r^j is included in the subset.
If d is the period of w with respect to cyclic rotations (thus d|n) then the periodic part of w uniquely defines some binary Lyndon word of the length d (see A001037). In turn, each binary Lyndon word of the length d, where d
The binary Lyndon words of the length n are different in this respect: only some of them correspond to n distinct zero-sum subsets of U(n) while the others do not correspond to such subsets at all. A110981(n) gives the number of binary Lyndon words of the length n that correspond to zero-sum subsets of U(n). (End)

Crossrefs

Equals A070894 + 1. A107847(n) = (2^n - A103314(n))/n, A110981 = A001037 - A107847.
Row sums of A103306. See also A006533, A006561, A006600, A007569, A007678.
Cf. A070925, A107753 (number of primitive subsets of the n-th roots of unity summing to zero), A107754 (number of subsets of the n-th roots of unity summing to one), A107861 (number of distinct values in the sums of all subsets of the n-th roots of unity).
Cf. A322366.

Programs

  • Mathematica
    Needs["DiscreteMath`Combinatorica`"]; Table[Plus@@Table[Count[ (KSubsets[ Range[n], k]), q_List/;Chop[ Abs[Plus@@(E^(2.*Pi*I*q/n))]]==0], {k, 0, n}], {n, 15}] (* T. D. Noe *)
  • PARI
    /* This program implements all known results; it works for all n except for 165, 195, 210, 231, 255, 273, 285, 330, 345, ... */
    A103314(n) = { local(f=factor(n)); n<2 & return(1); n==f[1,1] & return(2);
    vecmax(f[,2])>1 & return(A103314(f=prod(i=1,#f~,f[i,1]))^(n/f));
    if( 2==#f=f[,1], return(2^f[1]+2^f[2]-2));
    #f==3 & f[1]==2 & return(sum(j=0,f[2],binomial(f[2],j)*(2^j+2^(f[2]-j))^f[3])
    +(2^f[2]+2)^f[3]+(2^f[3]+2)^f[2]-2*((2^f[2]+1)^f[3]+(2^f[3]+1)^f[2])+2^(f[2]*f[3]));
    n==105 & return(166093023482); error("A103314(n) is unknown for n=",n) }
    /* Max Alekseyev and M. F. Hasler, Jan 31 2008 */

Formula

a(n) = A070894(n)+1.
a(2^n) = 2^(2^(n-1)). - Dan Asimov and Gareth McCaughan, Mar 11 2005
a(2n) = a(n)^2 if n is even. If p, q are primes, a(pq) = 2^p+2^q-2. In particular, if p is prime, a(2p) = 2^p + 2. - Gareth McCaughan, Mar 12 2005
a(n) == 2^n (mod n), a(p) = 2 (p prime). - David W. Wilson, May 08 2005
It appears that a(n) = a(s(n))^(n/s(n)) where s(n) = A007947(n) is the squarefree kernel of n. This is true if all zero-sum subsets of the n-th roots of 1 are formed by set operations on cyclic subsets. If true, A103314 is determined by its values on squarefree numbers (A005117). Some consequences would be a(p^n) = 2^p^(n-1), a(p^m q^n) = (2^p+2^q+2)^(p^(m-1) q^(n-1)) and a(p^2 n) = a(pn)^p for primes p and q. - David W. Wilson, May 08 2005
a(pn) = a(n)^p when p is prime and p|n; a(2p) = 2^p+2 when p is an odd prime. More generally a(pq) = 2^p+2^q-2 when p, q are distinct primes. - Gareth McCaughan, Mar 12 2005
For distinct odd primes p and q, a(2pq) = (2^p+2)^q + (2^q+2)^p - 2(2^p+1)^q - 2(2^q+1)^p + 2^(pq) + SUM[j=0..p] binomial(p,j)(2^j+2^(p-j))^q. - Sasha Rybak, Sep 21 2007.
a(n) = n*A110981(n) + 2^n - n*A001037(n). - Max Alekseyev, Jan 14 2008

Extensions

More terms from David W. Wilson, Mar 12 2005
Scott Huddleston (scotth(AT)ichips.intel.com) finds that a(30) >= 146854 and conjectures that is the true value of a(30). - Mar 24 2005. Confirmed by Meeussen and Wilson.
More terms from T. D. Noe, May 25 2005
Further terms from Max Alekseyev and M. F. Hasler, Jan 07 2008
Edited by M. F. Hasler, Feb 06 2008
Duplicate Mathematica program deleted by Harvey P. Dale, Jun 28 2021

A006600 Total number of triangles visible in regular n-gon with all diagonals drawn.

Original entry on oeis.org

1, 8, 35, 110, 287, 632, 1302, 2400, 4257, 6956, 11297, 17234, 25935, 37424, 53516, 73404, 101745, 136200, 181279, 236258, 306383, 389264, 495650, 620048, 772785, 951384, 1167453, 1410350, 1716191, 2058848, 2463384, 2924000, 3462305, 4067028, 4776219, 5568786, 6479551
Offset: 3

Keywords

Comments

Place n equally-spaced points on a circle, join them in all possible ways; how many triangles can be seen?

Examples

			a(4) = 8 because in a quadrilateral the diagonals cross to make four triangles, which pair up to make four more.
		

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Often confused with A005732.
Row sums of A363174.
Sequences related to chords in a circle: A001006, A054726, A006533, A006561, A006600, A007569, A007678. See also entries for chord diagrams in Index file.

Programs

  • Mathematica
    del[m_,n_]:=If[Mod[n,m]==0,1,0]; Tri[n_]:=n(n-1)(n-2)(n^3+18n^2-43n+60)/720 - del[2,n](n-2)(n-7)n/8 - del[4,n](3n/4) - del[6,n](18n-106)n/3 + del[12,n]*33n + del[18,n]*36n + del[24,n]*24n - del[30,n]*96n - del[42,n]*72n - del[60,n]*264n - del[84,n]*96n - del[90,n]*48n - del[120,n]*96n - del[210,n]*48n; Table[Tri[n], {n,3,1000}] (* T. D. Noe, Dec 21 2006 *)

Formula

a(2n-1) = A005732(2n-1) for n > 1; a(2n) = A005732(2n) - A260417(n) for n > 1. - Jonathan Sondow, Jul 25 2015

Extensions

a(3)-a(8) computed by Victor Meally (personal communication to N. J. A. Sloane, circa 1975); later terms and recurrence from S. Sommars and T. Sommars.

A146212 Number of intersection points of all lines through pairs of vertices of a regular n-gon.

Original entry on oeis.org

3, 5, 15, 37, 91, 145, 333, 471, 891, 901, 1963, 2185, 3795, 3969, 6681, 5563, 10963, 11141, 17031, 17293, 25323, 21913, 36325, 36479, 50571, 50485, 68643, 51661, 91171, 90753, 118833, 118355, 152355, 139861, 192511, 191445, 240123, 238481
Offset: 3

Author

T. D. Noe, Oct 28 2008

Keywords

Comments

This includes intersection points outside of the n-gon. Note that for odd n, n divides a(n); for even n, n divides a(n)-1. For odd n, it appears that a(n)=n*(n^3-7*n^2+15*n-1)/8.
That formula for odd n is correct: see the Sidorenko link. - N. J. A. Sloane, Sep 12 2021

Examples

			a(5)=15 because there are 5 points inside the pentagon, 5 points on the pentagon and five points outside of the pentagon.
		

Crossrefs

Bisection: A347319, A347321.

Formula

There is a formula for odd n: see Comment section and the Sidorenko link. - N. J. A. Sloane, Sep 12 2021

Extensions

More terms from Jon E. Schoenfield, Nov 10 2008
Definition clarified by N. J. A. Sloane, Jun 06 2025

A331451 Triangle read by rows: Take an n-sided polygon (n>=3) with all diagonals drawn, as in A007678. Then T(n,k) = number of k-sided polygons in that figure for k = 3, 4, ..., n.

Original entry on oeis.org

1, 4, 0, 10, 0, 1, 18, 6, 0, 0, 35, 7, 7, 0, 1, 56, 24, 0, 0, 0, 0, 90, 36, 18, 9, 0, 0, 1, 120, 90, 10, 0, 0, 0, 0, 0, 176, 132, 44, 22, 0, 0, 0, 0, 1, 276, 168, 0, 0, 0, 0, 0, 0, 0, 0, 377, 234, 117, 39, 0, 13, 0, 0, 0, 0, 1, 476, 378, 98, 0, 0, 0, 0, 0, 0, 0, 0, 0, 585, 600, 150, 105, 15, 0, 0, 0, 0, 0, 0, 0, 1, 848, 672, 128, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 3

Author

Keywords

Comments

Computed by Scott R. Shannon, Jan 24 2020

Examples

			A hexagon with all diagonals drawn contains 18 triangles, 6 quadrilaterals, and no pentagons or hexagons, so row 6 is [18, 6, 0, 0].
Triangle begins:
1,
4,0,
10,0,1,
18,6,0,0,
35,7,7,0,1,
56,24,0,0,0,0,
90,36,18,9,0,0,1,
120,...
The row sums are A007678, the first column is A062361.
		

Crossrefs

See A331450 for a version of this triangle in which trailing zeros in the rows have been omitted.

Formula

By counting edges in two ways, we have the identity Sum_k k*T(n,k) + n = 2*A135565(n). E.g. for n=7, 3*35+4*7+5*7+6*0+7*1+7 = 182 = 2*A135565(7).

A091908 Number of interior intersection points made by the straight line segments connecting the edges of an equilateral triangle with the n-1 points resulting from a subdivision of the sides into n equal pieces, counting coinciding intersection points only once.

Original entry on oeis.org

0, 1, 12, 13, 48, 49, 108, 109, 192, 193, 300, 301, 432, 433, 576, 589, 768, 769, 972, 961, 1200, 1201, 1452, 1405, 1728, 1729, 2028, 2029, 2352, 2341, 2700, 2701, 3072, 3073, 3444, 3469, 3888, 3889, 4332, 4297, 4800, 4777, 5292, 5293, 5724, 5809, 6348
Offset: 1

Author

Hugo Pfoertner, Feb 19 2004

Keywords

Comments

In a drawing the distinction between simple and multiple intersection points may be difficult due to near-coincidences. E.g. there are no coincident intersections for n=7.
Note that 3 divides a(2k)-1 and a(2k+1). - T. D. Noe, Jun 29 2005
The interior intersection points only can be the result of the concurrency of 2 or 3 segments by construction. It is easy to see that the total number of 2-intersections N2 is 3*(n-1)^2 (which includes every 3-intersection as two 2-intersections) by symmetry. But we are interested in excluding the concurrency of more than 2. By Ceva's theorem necessary and sufficient condition for 3 concurrent segments that connect the edges with the opposite side, the number of 3-intersections N3 is the same as the number of (i,j,k) belonging to [1,n-1]x[1,n-1]x[1,n-1] such that (i/(n-i))*(j/(n-j))*(k/(n-k))=1. Thus the terms a(n)=N2-2*N3. - Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 26 2006
If n is even then a(n) < 3*(n-1)^2; if n is odd then a(n) = 3*(n-1)^2 except for n in A332378. - N. J. A. Sloane, Feb 14 2020

Examples

			a(3)=12 because the 3*2 line segments intersect each other in 12 distinct points (see pictures given at link)
a(4)=13 because the 27 intersections form 6 two line intersection points and 7 three line intersection points.
		

Crossrefs

Cf. A091910 = radial locations of intersection points, A092098 = number of regions that the line segments cut the triangle into, A006561.
For the basic properties of the underlying graph, see A092098 (cells), A331782 (vertices), A331782 (vertices), A332376 & A332377 (edges). - N. J. A. Sloane, Feb 14 2020

Programs

  • PARI
    for(n=1,70,conc=0;for(i=1,n-1,for(j=1,n-1,for(k=1,n-1,if(i*j*k/((n-i)*(n-j)*(n-k))==1,conc++))));print1(3*(n-1)^2-2*conc,",")) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 26 2006

Extensions

More terms from T. D. Noe, Jun 29 2005
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 26 2006

A101363 In the interior of a regular 2n-gon with all diagonals drawn, the number of points where exactly three diagonals intersect.

Original entry on oeis.org

0, 1, 8, 20, 60, 112, 208, 216, 480, 660, 864, 1196, 1568, 2250, 2464, 2992, 3924, 4332, 5160, 8148, 7040, 8096, 10560, 10600, 12064, 15552, 15288, 17052, 25320, 21080, 23360, 30360, 28288, 30940, 36288, 36852, 40128, 50076, 47120, 50840, 67620
Offset: 2

Author

Graeme McRae, Dec 26 2004, revised Feb 23 2008, Feb 26 2008

Keywords

Comments

When n is odd, there are no intersections in the interior of an n-gon where more than 2 diagonals meet.
When n is not a multiple of 6, there are no intersections in the interior of an n-gon where more than 3 diagonals meet.
When n is not a multiple of 30, there are no intersections in the interior of an n-gon where more than 5 diagonals meet.
I checked the following conjecture up to n=210: "An n-gon with n=30k has 5n points where 6 or 7 diagonals meet and no points where more than 7 diagonals meet; If k is odd, then 6 diagonals meet in each of 4n points and 7 diagonals meet in each of n points; If k is even, then no groups of exactly 6 diagonals meet in a point, while exactly 7 diagonals meet in each of 5n points."

Examples

			a(6)=60 because inside a regular 12-gon there are 60 points (4 on each radius and 1 midway between radii) where exactly three diagonals intersect.
		

Crossrefs

A column of A292105.
Cf. A000332: C(n, 4) = number of intersection points of diagonals of convex n-gon.
Cf. A006561: number of intersections of diagonals in the interior of regular n-gon
Cf. A292104: number of 2-way intersections in the interior of a regular n-gon
Cf. A101364: number of 4-way intersections in the interior of a regular n-gon
Cf. A101365: number of 5-way intersections in the interior of a regular n-gon
Cf. A137938: number of 4-way intersections in the interior of a regular 6n-gon
Cf. A137939: number of 5-way intersections in the interior of a regular 6n-gon.
Previous Showing 11-20 of 44 results. Next