A338966 -id:A338966 - cp's OEIS frontend

A337954 Number of chiral pairs of colorings of the 16 tetrahedral facets of a hyperoctahedron or of the 16 vertices of a tesseract.

0, 94, 97974, 10700090, 390081800, 7280687610, 86121007714, 730895668104, 4816861200630, 26010740238450, 119563513291420, 481192778757834, 1732132086737234, 5669991002636870, 17101193825828700, 48029634770843680

Offset: 1

Robert A. Russell, Oct 03 2020

Each member of a chiral pair is a reflection, but not a rotation, of the other. The Schläfli symbols for the tesseract and the hyperoctahedron are {4,3,3} and {3,3,4} respectively. Both figures are regular 4-D polyhedra and they are mutually dual.

Index entries for linear recurrences with constant coefficients, signature (17, -136, 680, -2380, 6188, -12376, 19448, -24310, 24310, -19448, 12376, -6188, 2380, -680, 136, -17, 1).

Cf. A337952 (oriented), A128767 (unoriented), A337955 (achiral).
Other elements: A331360 (tesseract edges, hyperoctahedron faces), A331356 (tesseract faces, hyperoctahedron edges), A234249(n+1) (tesseract facets, hyperoctahedron vertices).
Other polychora: A000389 (4-simplex facets/vertices), A338950 (24-cell), A338966 (120-cell, 600-cell).
Row 4 of A325014 (orthoplex facets, orthotope vertices).

Table[(n^16-12n^12+12n^10+43n^8-48n^6-44n^4+48n^2)/384,{n, 30}]

a(n) = (n-1) * n^2 * (n+1) * (n^12 + n^10 - 11*n^8 + n^6 + 44 n^4 - 4 n^2 - 48) / 384.
a(n) = 94*C(n,2) + 97692*C(n,3) + 10308758*C(n,4) + 337560150*C(n,5) + 5098740090*C(n,6) + 42976836210*C(n,7) + 224685801060*C(n,8) + 775389028050*C(n,9) + 1830791421900*C(n,10) + 3007909258200*C(n,11) + 3439214024400*C(n,12) + 2685727044000*C(n,13) + 1366701336000*C(n,14) + 408648240000*C(n,15) + 54486432000*C(n,16), where the coefficient of C(n,k) is the number of chiral pairs of colorings using exactly k colors.
a(n) = A337952(n) - A128767(n) = (A337952(n) - A337955(n)) / 2 = A128767(n) - A337955(n).

A338982 Number of chiral pairs of colorings of the 120 dodecahedral facets of the 4-D 120-cell (or 120 vertices of the 4-D 600-cell) using exactly n colors.

Original entry on oeis.org

0, 0, 92307499707128546879177569498768, 124792381938502167386992798774696507063550726794469211, 122697712831831745940423455373835049129541140194826165569091574960692

Offset: 0

Robert A. Russell, Dec 13 2020

Each member of a chiral pair is a reflection but not a rotation of the other. The Schläfli symbols of the 120-cell and 600-cell are {5,3,3} and {3,3,5} respectively. They are mutually dual. For n>120, a(n) = 0.
Sequences for other elements of the 120-cell and 600-cell are not suitable for the OEIS as the first significant datum is too big. We provide generating functions here using bp(j) = Sum_{k=1..j} k! * S2(j,k) * x^k.
For the 600 facets of the 600-cell (vertices of the 120-cell), the generating function is bp(20)/15 + bp(30)/10 + bp(40)/15 + bp(50)/12 - 17*bp(60)/300 - bp(66)/10 + bp(100)/360 - bp(104)/18 - bp(114)/12 + 13*bp(120)/300 + bp(150)/240 - bp(152)/8 + bp(200)/360 + bp(208)/36 - 59*bp(300)/14400 + bp(302)/32 - bp(330)/240 + bp(600)/14400.
For the 720 pentagonal faces of the 120-cell (edges of the 600-cell), the generating function is bp(24)/15 + bp(36)/10 + bp(48)/15 + bp(60)/12 + 7*bp(72)/300 - 2*bp(76)/25 - bp(84)/10 - 19*bp(120)/360 - bp(132)/12 + 7*bp(144)/300 + bp(152)/50 + bp(180)/240 - bp(182)/8 + 11*bp(240)/360 - 59*bp(360)/14400 + bp(364)/32 - bp(396)/240 + bp(720)/14400.
For the 1200 edges of the 120-cell (triangular faces of the 600-cell), the generating function is bp(40)/15 + bp(60)/10 + bp(80)/15 + bp(100)/12 - 17*bp(120)/300 - bp(128)/10 + bp(200)/360 - bp(202)/18 - bp(216)/12 + 13*bp(240)/300 + bp(300)/240 - bp(302)/8 + bp(400)/360 + bp(404)/36 - 59*bp(600)/14400 + bp(604)/32 - bp(640)/240 + bp(1200)/14400.

Robert A. Russell, Table of n, a(n) for n = 0..120

Cf. A338980 (oriented), A338981 (unoriented), A338983 (achiral), A338966 (up to n colors), A000389 (5-cell), A337954 (8-cell vertices, 16-cell facets), A234249 (16-cell vertices, 8-cell facets), A338950 (24-cell).

bp[j_] := Sum[k! StirlingS2[j, k] x^k, {k, j}] (*binomial series*)
CoefficientList[bp[4]/15+bp[6]/10+bp[8]/15+bp[10]/12+7bp[12]/300+bp[16]/50-bp[17]/10-bp[19]/10+bp[20]/360+bp[22]/36-bp[23]/12+7bp[24]/300-bp[27]/12+bp[30]/240-bp[31]/8+bp[32]/50+bp[40]/360+bp[44]/36+bp[60]/14400-bp[61]/240+bp[62]/32-bp[75]/240+bp[120]/14400,x]

A338966(n) = Sum_{j=2..Min(n,120)} a(n) * binomial(n,j).
a(n) = A338980(n) - A338981(n) = (A338980(n) - A338983(n)) / 2 = A338981(n) - A338983(n).
G.f.: bp(4)/15 + bp(6)/10 + bp(8)/15 + bp(10)/12 + 7*bp(12)/300 + bp(16)/50 - bp(17)/10 - bp(19)/10 + bp(20)/360 + bp(22)/36 - bp(23)/12 + 7*bp(24)/300 - bp(27)/12 + bp(30)/240 - bp(31)/8 + bp(32)/50 + bp(40)/360 + bp(44)/36 + bp(60)/14400 - bp(61)/240 + bp(62)/32 - bp(75)/240 + bp(120)/14400, where bp(j) = Sum_{k=1..j} k! * S2(j,k) * x^k and S2(j,k) is the Stirling subset number, A008277.

cp's OEIS Frontend

A337954 Number of chiral pairs of colorings of the 16 tetrahedral facets of a hyperoctahedron or of the 16 vertices of a tesseract.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula