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-8 of 8 results.

A331354 Number of oriented colorings of the edges of a regular 4-dimensional orthoplex with n available colors.

Original entry on oeis.org

1, 90054, 1471640157, 1466049174160, 310441584462375, 24679078461920106, 997818989210621704, 24595659246351652992, 415450226822646218895, 5208333343963621522750, 51300691059764724112161, 414046079318115654521904
Offset: 1

Views

Author

Robert A. Russell, Jan 14 2020

Keywords

Comments

A regular 4-dimensional orthoplex (also hyperoctahedron or cross polytope) has 8 vertices and 24 edges. Its Schläfli symbol is {3,3,4}. Two oriented colorings are the same if one is a rotation of the other; chiral pairs are counted as two. Also the number of oriented colorings of the square faces of a tesseract {4,3,3} with n available colors.
There are 192 elements in the rotation group of the 4-dimensional orthoplex. Each is associated with a partition of 4 based on the conjugacy group of the permutation of the axes. The first formula is obtained by averaging their cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
Partition Count Even Cycle Indices
4 6 8x_8^3
31 8 4x_3^8 + 4x_6^4
22 3 4x_1^4x_2^10 + 4x_4^6
211 6 4x_1^2x_2^11 + 2x_1^4x_4^5 + 2x_2^2x_4^5
1111 1 6x_1^4x_2^10 + x_1^24 + x_2^12

Links

Crossrefs

Cf. A331355 (unoriented), A331356 (chiral), A331357 (achiral).
Other polychora: A331350 (5-cell), A331358 (8-cell), A338952 (24-cell), A338964 (120-cell, 600-cell).
Row 4 of A337411 (orthoplex edges, orthotope ridges) and A337887 (orthotope faces, orthoplex peaks).

Programs

  • Mathematica
    Table[(48n^3 + 32n^4 + 12n^6 + 12n^7 + 32n^8 + 12n^9 + n^12 + 24n^13 + 18n^14 + n^24)/192, {n, 1, 25}]

Formula

a(n) = (48*n^3 + 32*n^4 + 12*n^6 + 12*n^7 + 32*n^8 + 12*n^9 + n^12 + 24*n^13 + 18*n^14 + n^24) / 192.
a(n) = C(n,1) + 90052*C(n,2) + 1471369998*C(n,3) + 1460163153852*C(n,4) + 303126054092610*C(n,5) + 22838390261305920*C(n,6) + 831533453035309605*(n,7) + 17286839341903413240*C(n,8) + 227976665667323280750*C(n,9) + 2046002146009161624900*C(n,10) + 13118524448411114548200*C(n,11) + 62195874413179579657200*C(n,12) + 223421486565003375448800*C(n,13) + 618462331903782130564800*C(n,14) + 1333693289177381452320000*C(n,15) + 2253251792722109699520000*C(n,16) + 2984347082566196867520000*C(n,17) + 3083974243985846090880000*C(n,18) + 2458713052058007064320000*C(n,19) + 1482204734016157831680000*C(n,20) + 653167360418390737920000*C(n,21) + 198468086839148206080000*C(n,22) + 37162274062147153920000*C(n,23) + 3231502092360622080000*C(n,24), where the coefficient of C(n,k) is the number of colorings using exactly k colors.
a(n) = A331355(n) + A331356(n) = 2*A331355(n) - A331357(n) = 2*A331356(n) + A331357(n).

A331358 Number of oriented colorings of the edges of a tesseract with n available colors.

Original entry on oeis.org

1, 22409620, 9651199594275, 96076801068337216, 121265960728368199375, 41451359960612034644436, 5752227470227262715982165, 412646679764073090531066880, 17883769897375781105874361581
Offset: 1

Views

Author

Robert A. Russell, Jan 14 2020

Keywords

Comments

A tesseract is a regular 4-dimensional orthotope or hypercube with 16 vertices and 32 edges. Its Schläfli symbol is {4,3,3}. Two oriented colorings are the same if one is a rotation of the other; chiral pairs are counted as two. Also the number of oriented colorings of the triangular faces of a regular 4-dimensional orthoplex {3,3,4} with n available colors.
There are 192 elements in the rotation group of the tesseract. Each is associated with a partition of 4 based on the conjugacy group of the permutation of the axes. The first formula is obtained by averaging their cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
Partition Count Even Cycle Indices
4 6 8x_8^4
31 8 4x_1^2x_3^10 + 4x_2^1x_6^5
22 3 4x_2^16 + 4x_4^8
211 6 4x_1^4x_2^14 + 4x_4^8
1111 1 x_1^32 + 7x_2^16

Links

Crossrefs

Cf. A331359 (unoriented), A331360 (chiral), A331361 (achiral).
Cf. A331350 (simplex), A331354 (orthoplex), A338952 (24-cell), A338964 (120-cell, 600-cell).

Programs

  • Mathematica
    Table[(48n^4 + 32n^6 + 36n^8 + 32n^12 + 19n^16 + 24n^18 + n^32)/192, {n, 1, 25}]

Formula

a(n) = (48*n^4 + 32*n^6 + 36*n^8 + 32*n^12 + 19*n^16 + 24*n^18 + n^32) / 192.
a(n) = C(n,1) + 22409618*C(n,2) + 9651132365418*C(n,3) + 96038196404417832*C(n,4) + 120785673234798359850*C(n,5) + 40725205155234194765220*C(n,6) + 5464611173328028329053040*C(n,7) + 367782713912186945387883840*C(n,8) + 14373563321596798877701789800*C(n,9) + 359883141899402124632485810800*C(n,10) + 6184991837595074128351177096800*C(n,11) + 76711443861342809436413801659200*C(n,12) + 712777405284132776184971034460800*C(n,13) + 5104524541259652946568783959507200*C(n,14) + 28797485239301310151711610238720000*C(n,15) + 130163892496470993203014850790912000*C(n,16) + 477548461917280632356433595575936000*C(n,17) + 1436223810514558840121822575516416000*C(n,18) + 3566452148795758403208660387955200000*C(n,19) + 7348050481070906467554726390758400000*C(n,20) + 12594856495384277051085880584652800000*C(n,21) + 17969280084916069147800454551859200000*C(n,22) + 21302862405912312079825436975308800000*C(n,23) + 20896529603947922315711136828211200000*C(n,24) + 16837871283345549751877122560000000000*C(n,25) + 11021533432128296153318764634112000000*C(n,26) + 5764800913106992933428143603712000000*C(n,27) + 2351280741029830331492705206272000000*C(n,28) + 720354927933711780177833164800000000*C(n,29) + 155891316152123120086047129600000000*C(n,30) + 21242333189959633945791037440000000*C(n,31) + 1370473109029653802954260480000000*C(n,32), where the coefficient of C(n,k) is the number of colorings using exactly k colors.
a(n) = A331359(n) + A331360(n) = 2*A331359(n) - A331361(n) = 2*A331360(n) + A331361(n).

A338948 Number of oriented colorings of the 24 octahedral facets (or 24 vertices) of the 4-D 24-cell using subsets of a set of n colors.

Original entry on oeis.org

1, 30968, 490710246, 488689596200, 103480643539150, 8226360697111116, 332606338581801018, 8198553131754111456, 138483409168412322525, 1736111115543474313600, 17100230356306262961356, 138015359782116886130568
Offset: 1

Views

Author

Robert A. Russell, Nov 17 2020

Keywords

Comments

Each chiral pair is counted as two when enumerating oriented arrangements. The Schläfli symbol of the 24-cell is {3,4,3}. It is self-dual. There are 576 elements in the rotation group of the 24-cell. They divide into 20 conjugacy classes. The first formula is obtained by averaging the vertex (or facet) cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
Count Even Cycle Indices Count Even Cycle Indices
1 x_1^24 36 x_2^2x_4^5
18 x_1^4x_2^10 32 x_2^3x_6^3
72 x_1^2x_2^11 6+6 x_4^6
1 x_2^12 8+8+32 x_6^4
32 x_1^6x_3^6 72+72 x_8^3
36 x_1^4x_4^5 48+48 x_12^2
8+8+32 x_3^8

Links

Crossrefs

Cf. A338949 (unoriented), A338950 (chiral), A338951 (achiral), A338952 (edges, faces), A337895 (5-cell), A337952 (8-cell vertices, 16-cell facets), A337956 (16-cell vertices, 8-cell facets), A338964 (120-cell, 600-cell).

Programs

  • Mathematica
    Table[(96n^2+144n^3+48n^4+44n^6+36n^7+48n^8+36n^9+33n^12+72n^13+18n^14+n^24)/576,{n,15}]

Formula

a(n) = (96*n^2 + 144*n^3 + 48*n^4 + 44*n^6 + 36*n^7 + 48*n^8 + 36*n^9 + 33*n^12 + 72*n^13 + 18*n^14 + n^24) / 576.
a(n) = 1*C(n,1) + 30966*C(n,2) + 490617345*C(n,3) + 486726941020*C(n,4) + 101042102350935*C(n,5) + 7612797366078810*C(n,6) + 277177820254686645*C(n,7) + 5762279787373449480*C(n,8) + 75992221900428179850*C(n,9) + 682000715348622816300*C(n,10) + 4372841482811937689400*C(n,11) + 20731958137729666674000*C(n,12) + 74473828855001644068000*C(n,13) + 206154110634594043521600*C(n,14) + 444564429725793817440000*C(n,15) + 751083930907369899840000*C(n,16) + 994782360855398955840000*C(n,17) + 1027991414661948696960000*C(n,18) + 819571017352669021440000*C(n,19) + 494068244672052610560000*C(n,20) + 217722453472796912640000*C(n,21) + 66156028946382735360000*C(n,22) + 12387424687382384640000*C(n,23) + 1077167364120207360000*C(n,24), where the coefficient of C(n,k) is the number of oriented colorings using exactly k colors.
a(n) = A338949(n) + A338950(n) = 2*A338949(n) - A338951(n) = 2*A338950(n) + A338951(n).

A331350 Number of oriented colorings of the edges (or triangular faces) of a regular 4-dimensional simplex with n available colors.

Original entry on oeis.org

1, 40, 1197, 18592, 166885, 1019880, 4738153, 17962624, 58248153, 166920040, 432738229, 1032709536, 2298857821, 4822806184, 9613704465, 18329410048, 33605960689, 59516325288, 102196242685, 170682720160, 278019522837
Offset: 1

Views

Author

Robert A. Russell, Jan 14 2020

Keywords

Comments

A 4-dimensional simplex has 5 vertices and 10 edges. Its Schläfli symbol is {3,3,3}. Two oriented colorings are the same if one is a rotation of the other; chiral pairs are counted as two.
There are 60 elements in the rotation group of the 4-dimensional simplex. Each is an even permutation of the vertices and can be associated with a partition of 5 based on the conjugacy group of the permutation. The first formula is obtained by averaging their cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
Partition Count Even Cycle Indices
5 24 x_5^2
311 20 x_1^1x_3^3
221 15 x_1^2x_2^4
11111 1 x_1^10

Links

Crossrefs

Cf. A063843 (unoriented), A331352 (chiral), A331353 (achiral).
Other polychora: A331358 (8-cell), A331354 (16-cell), A338952 (24-cell), A338964 (120-cell, 600-cell).
Row 4 of A327083 (simplex edges and facets) and A337883 (simplex faces and peaks).

Programs

  • Mathematica
    Table[(24n^2 + 20n^4 + 15n^6 + n^10)/60, {n, 1, 25}]

Formula

a(n) = (24*n^2 + 20*n^4 + 15*n^6 + n^10) / 60.
a(n) = C(n,1) + 38*C(n,2) + 1080*C(n,3) + 14040*C(n,4) + 85500*C(n,5) + 274104*C(n,6) + 493920*C(n,7) + 504000*C(n,8) + 272160*C(n,9) + 60480*C(n,10), where the coefficient of C(n,k) is the number of colorings using exactly k colors.
a(n) = A063843(n) + A331352(n) = 2*A063843(n) - A331353(n) = 2*A331352(n) + A331353(n).

A338953 Number of unoriented colorings of the 96 edges (or triangular faces) of the 4-D 24-cell using subsets of a set of n colors.

Original entry on oeis.org

1, 68774446639102959610154176, 5523164445430505961199114292414803649442426, 5448873034189827051954635848284422749083650351583379456, 10956401461402941741829572441752281718329313621842215239237500000
Offset: 1

Views

Author

Robert A. Russell, Nov 17 2020

Keywords

Comments

Each chiral pair is counted as one when enumerating unoriented arrangements. The Schläfli symbol of the 24-cell is {3,4,3}. It has 24 octahedral facets. It is self-dual.

Links

Crossrefs

Cf. A338952 (oriented), A338954 (chiral), A338955 (achiral), A338957 (exactly n colors), A338949 (vertices, facets), A063843 (5-cell), A331359 (8-cell edges, 16-cell faces), A331355 (16-cell edges, 8-cell faces), A338965 (120-cell, 600-cell).

Programs

  • Mathematica
    Table[(96n^8+144n^12+144n^16+128n^18+192n^20+228n^24+48n^32+32n^36+43n^48+72n^50+12n^52+12n^60+n^96)/1152,{n,15}]

Formula

a(n) = (96*n^8 + 144*n^12 + 144*n^16 + 128*n^18 + 192*n^20 + 228*n^24 +
48*n^32 + 32*n^36 + 43*n^48 + 72*n^50 + 12*n^52 + 12*n^60 + n^96) / 1152.
a(n) = Sum_{j=1..Min(n,96)} A338957(n) * binomial(n,j).
a(n) = A338952(n) - A338954(n) = (A338952(n) + A338955(n)) / 2 = A338954(n) + A338955(n).

A338954 Number of chiral pairs of colorings of the 96 edges (or triangular faces) of the 4-D 24-cell using subsets of a set of n colors.

Original entry on oeis.org

68774446614978208476646592, 5523164445430505077912054084256733211946217, 5448873034189827051926943172520863487560602391778344960, 10956401461402941741829554371669666304159415287557559324930859375
Offset: 2

Views

Author

Robert A. Russell, Nov 17 2020

Keywords

Comments

Each member of a chiral pair is a reflection but not a rotation of the other. The Schläfli symbol of the 24-cell is {3,4,3}. It has 24 octahedral facets. It is self-dual.

Links

Crossrefs

Cf. A338952 (oriented), A338953 (unoriented), A338955 (achiral), A338958 (exactly n colors), A338950 (vertices, facets), A331352 (5-cell), A331360 (8-cell edges, 16-cell faces), A331356 (16-cell edges, 8-cell faces), A338966 (120-cell, 600-cell).

Programs

  • Mathematica
    Table[(96n^8+144n^12-48n^16-64n^18-192n^20-60n^24+48n^32+32n^36-5n^48+72n^50-12n^52-12n^60+n^96)/1152,{n,2,15}]

Formula

a(n) = (96*n^8 + 144*n^12 - 48*n^16 - 64*n^18 - 192*n^20 - 60*n^24 +
48*n^32 + 32*n^36 - 5*n^48 + 72*n^50 - 12*n^52 - 12*n^60 + n^96) / 1152.
a(n) = Sum_{j=2..Min(n,96)} A338958(n) * binomial(n,j).
a(n) = A338952(n) - A338953(n) = (A338952(n) - A338955(n)) / 2 = A338953(n) - A338955(n).

A338955 Number of achiral colorings of the 96 edges (or triangular faces) of the 4-D 24-cell using subsets of a set of n colors.

Original entry on oeis.org

1, 24124751133507584, 883287060208158070437496209, 27692675763559261523047959805034496, 18070082615414169898334284655914306640625, 1018202231744161700740376040914469837333037056
Offset: 1

Views

Author

Robert A. Russell, Nov 17 2020

Keywords

Comments

An achiral coloring is identical to its reflection. The Schläfli symbol of the 24-cell is {3,4,3}. It has 24 octahedral facets. It is self-dual. There are 576 elements in the automorphism group of the 24-cell that are not in its rotation group. They divide into 10 conjugacy classes. The first formula is obtained by averaging the edge (or face) cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
Count Odd Cycle Indices Count Odd Cycle Indices
12 x_1^24x_2^36 96 x_1^2x_2^2x_3^2x_6^14
12 x_1^8x_2^44 96 x_3^8x_6^12
12+12 x_3^48 96 x_2^3x_6^15
72+72 x_4^24 96 x_6^16

Links

Crossrefs

Cf. A338952 (oriented), A338953 (unoriented), A338954 (chiral), A338959 (exactly n colors), A338951 (vertices, facets), A331353 (5-cell), A331361 (8-cell edges, 16-cell faces), A331357 (16-cell edges, 8-cell faces), A338967 (120-cell, 600-cell).

Programs

  • Mathematica
    Table[(8n^16+8n^18+16n^20+12n^24+2n^48+n^52+n^60)/48,{n,15}]

Formula

a(n) = (8*n^16 + 8*n^18 + 16*n^20 + 12*n^24 + 2*n^48 + n^52 + n^60) / 48.
a(n) = Sum_{j=1..Min(n,60)} A338959(n) * binomial(n,j).
a(n) = 2*A338953(n) - A338952(n) = A338952(n) - 2*A338954(n) = A338953(n) - A338954(n).

A338956 Number of oriented colorings of the 96 edges (or triangular faces) of the 4-D 24-cell using exactly n colors.

Original entry on oeis.org

1, 137548893254081168086800766, 11046328890861010626464488614428032600986342, 10897746068335468788318134977474134922662053604436974448, 21912802868317153141871319582922663027477920477404414535105616050
Offset: 1

Views

Author

Robert A. Russell, Nov 17 2020

Keywords

Comments

Each chiral pair is counted as two when enumerating oriented arrangements. The Schläfli symbol of the 24-cell is {3,4,3}. It has 24 octahedral facets. It is self-dual. For n>96, a(n) = 0.

Links

Crossrefs

Cf. A338957 (unoriented), A338958 (chiral), A338959 (achiral), A338952 (up to n colors), A338948 (vertices, facets), A331350 (5-cell), A331358 (8-cell edges, 16-cell faces), A331354 (16-cell edges, 8-cell faces), A338980 (120-cell, 600-cell).

Programs

  • Mathematica
    bp[j_] := Sum[k! StirlingS2[j, k] x^k, {k, 0, j}] (* binomial series *)
Drop[CoefficientList[bp[8]/6+bp[12]/4+bp[16]/12+bp[18]/18+7bp[24]/48+bp[32]/12+bp[36]/18+19bp[48]/576+bp[50]/8+bp[96]/576,x],1]

Formula

A338952(n) = Sum_{j=1..Min(n,96)} a(n) * binomial(n,j).
a(n) = A338957(n) + A338958(n) = 2*A338957(n) - A338959(n) = 2*A338958(n) + A338959(n).
Showing 1-8 of 8 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.