login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A007569 Number of nodes in regular n-gon with all diagonals drawn.
(Formerly M0724)
59

%I M0724 #49 Aug 30 2021 12:35:15

%S 1,2,3,5,10,19,42,57,135,171,341,313,728,771,1380,1393,2397,1855,3895,

%T 3861,6006,5963,8878,7321,12675,12507,17577,17277,23780,16831,31496,

%U 30945,40953,40291,52395,47017,66082,65019,82290,80921,101311,84883,123453,121485

%N Number of nodes in regular n-gon with all diagonals drawn.

%C I.e., vertex count of the n-polygon diagonal intersection graph. - _Eric W. Weisstein_, Mar 08 2018

%C Also the circumference of the n-polygon diagonal intersection graph (since these graphs are Hamiltonian). - _Eric W. Weisstein_, Mar 08 2018

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

%H T. D. Noe, <a href="/A007569/b007569.txt">Table of n, a(n) for n=1..1000</a>

%H Sascha Kurz, <a href="http://www.mathe2.uni-bayreuth.de/sascha/oeis/drawing/drawing.html">m-gons in regular n-gons</a>

%H B. Poonen and M. Rubinstein, <a href="https://doi.org/10.1137/S0895480195281246">Number of Intersection Points Made by the Diagonals of a Regular Polygon</a>, SIAM J. Discrete Mathematics, Vol. 11, pp. 135-156.

%H B. Poonen and M. Rubinstein, <a href="http://math.mit.edu/~poonen/papers/ngon.pdf">The number of intersection points made by the diagonals of a regular polygon</a>, SIAM J. on Discrete Mathematics, Vol. 11, No. 1, 135-156 (1998).

%H B. Poonen and M. Rubinstein, <a href="https://arxiv.org/abs/math/9508209">The number of intersection points made by the diagonals of a regular polygon</a>, arXiv:math/9508209 [math.MG], 1995-2006; arXiv version, which has fewer typos than the SIAM version.

%H B. Poonen and M. Rubinstein, <a href="http://math.mit.edu/~poonen/papers/ngon.m">Mathematica programs for these sequences</a>

%H M. Rubinstein, <a href="/A006561/a006561_3.pdf">Drawings for n=4,5,6,...</a>

%H N. J. A. Sloane (in collaboration with Scott R. Shannon), <a href="/A331452/a331452.pdf">Art and Sequences</a>, Slides of guest lecture in Math 640, Rutgers Univ., Feb 8, 2020. Mentions this sequence.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GraphCircumference.html">Graph Circumference</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PolygonDiagonalIntersectionGraph.html">Polygon Diagonal Intersection Graph</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/VertexCount.html">Vertex Count</a>

%H Robert G. Wilson v, <a href="/A006561/a006561_1.pdf">Illustration of a(10)</a>

%H <a href="/index/Pol#Poonen">Sequences formed by drawing all diagonals in regular polygon</a>

%F a(n) = A006561(n)+n. - _T. D. Noe_, Dec 23 2006

%F If n is odd, a(n) = binomial(n,4) + n. - _N. J. A. Sloane_, Aug 30 2021

%t del[m_,n_]:=If[Mod[n,m]==0,1,0]; Int[n_]:=If[n<4, n, n + Binomial[n,4] + del[2,n](-5n^3+45n^2-70n+24)/24 - del[4,n](3n/2) + del[6,n](-45n^2+262n)/6 + del[12,n]*42n + del[18,n]*60n + del[24,n]*35n - del[30,n]*38n - del[42,n]*82n - del[60,n]*330n - del[84,n]*144n - del[90,n]*96n - del[120,n]*144n - del[210,n]*96n]; Table[Int[n], {n,1,1000}] (* _T. D. Noe_, Dec 21 2006 *)

%o (Python)

%o def d(n,m): return not n % m

%o def A007569(n): return 2 if n == 2 else n*(42*d(n,12) - 144*d(n,120) + 60*d(n,18) - 96*d(n,210) + 35*d(n,24)- 38*d(n,30) - 82*d(n,42) - 330*d(n,60) - 144*d(n,84) - 96*d(n,90)) + (n**4 - 6*n**3 + 11*n**2 + 18*n -d(n,2)*(5*n**3 - 45*n**2 + 70*n - 24) - 36*d(n,4)*n - 4*d(n,6)*n*(45*n - 262))//24 # _Chai Wah Wu_, Mar 08 2021

%o (PARI) apply( {A007569(n)=A006561(n)+n}, [1..44]) \\ _M. F. Hasler_, Aug 06 2021

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

%K easy,nonn,nice

%O 1,2

%A _N. J. A. Sloane_, Bjorn Poonen (poonen(AT)math.princeton.edu)

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 22:56 EDT 2024. Contains 370952 sequences. (Running on oeis4.)