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.

1, 68774446639102959610154176, 5523164445430505961199114292414803649442426, 5448873034189827051954635848284422749083650351583379456, 10956401461402941741829572441752281718329313621842215239237500000

Offset: 1

Author

Robert A. Russell, Nov 17 2020

Keywords

• nonn
• easy

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

• Robert A. Russell, Table of n, a(n) for n = 1..30
• Index entries for linear recurrences with constant coefficients, order 97.

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).