login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A366872
Number of closed chains of identical regular polygons with connecting inner vertices lying n vertices apart.
1
4, 6, 5, 6, 8, 6, 6, 9, 8, 6, 10, 6, 8, 12, 7, 6, 12, 6, 10, 12, 8, 6, 12, 9, 8, 12, 10, 6, 16, 6, 8, 12, 8, 12, 15, 6, 8, 12, 12, 6, 16, 6, 10, 18, 8, 6, 14, 9, 12, 12, 10, 6, 16, 12, 12, 12, 8, 6, 20, 6, 8, 18, 9, 12, 16, 6, 10, 12, 16, 6, 18, 6, 8, 18
OFFSET
0,1
COMMENTS
Consider j identical regular polygons, assembled into a circular closed chain. Two neighboring polygons share an edge and two vertices, the "inner" one lying in the interior of the chain. The interior is a j-pointed star with equal edges.
n is introduced in order to partition the set of chains into finite subsets. Two neighboring star points are separated by n vertices; there the star has reflex angles. (With n=0, regular polygons are considered as stars with no reflex angles.)
Geometrical reasoning shows that for each n there are finitely many (not zero) chains with the described properties.
a(n) is the number of these chains and equals d(8+4n), the number of divisors of 8+4n.
For every m > 4 there exists a chain of m-gons.
For every j > 2 there exists a chain with exactly j polygons.
FORMULA
a(n) = A000005(8+4n).
a(n) > 5, with the exceptions a(0) = 4 and a(2) = 5.
a(n) = 6 iff n = 6 or n + 2 is an odd prime.
EXAMPLE
a(0) = 4 is the number of chains of identical regular polygons which have an interior regular polygon, namely 10 pentagons, 6 hexagons, 4 octagons, 3 dodecagons.
a(1) = 6 is the number of chains of identical regular polygons which have an interior proper star with identical edges, namely 14 heptagons, 8 octagons, 6 nonagons, 5 decagons, 4 dodecagons, 3 18-gons.
MATHEMATICA
Table[{n, Length[Divisors[8+4 n]]}, {n, 0, 107}] // TableForm
(With additional output describing the chains:)
Do[Print["n = ", n, " a(n) = ", Length[Divisors[8+4 n]]]; d = Divisors[8+4 n]; le = Length[d]; Do[t1 = d[[i]]; t2 = (8+4 n)/d[[i]]; Print["m = ", t1+4+2 n, " j = ", t2+2], {i, le}], {n, 0, 19}]
CROSSREFS
Cf. A000005.
Sequence in context: A307463 A243396 A140243 * A343470 A199289 A306341
KEYWORD
nonn
AUTHOR
Manfred Boergens, Oct 26 2023
STATUS
approved