A198833 -id:A198833 - cp's OEIS frontend

A047780 Number of inequivalent ways to color faces of a cube using at most n colors.

0, 1, 10, 57, 240, 800, 2226, 5390, 11712, 23355, 43450, 76351, 127920, 205842, 319970, 482700, 709376, 1018725, 1433322, 1980085, 2690800, 3602676, 4758930, 6209402, 8011200, 10229375, 12937626, 16219035, 20166832, 24885190, 30490050

Offset: 0

Jud McCranie

Here inequivalent means under the action of the rotation group of the cube, of order 24, which in its action on the faces has cycle index (x1^6 + 3*x1^2*x2^2 + 6*x1^2*x4 + 6*x2^3 + 8*x3^2)/24.
a(n) is also the number of inequivalent colorings of the vertices of a regular octahedron using at most n colors. - José H. Nieto S., Jan 19 2012
From Robert A. Russell, Oct 08 2020: (Start)
Each chiral pair is counted as two when enumerating oriented arrangements. The Schläfli symbols for the regular octahedron and cube are {3,4} and {4,3} respectively. They are mutually dual.
There are 24 elements in the rotation group of the regular octahedron/cube. They divide into five conjugacy classes. The first formula is obtained by averaging the cube face (octahedron vertex) cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
  Conjugacy Class    Count    Even Cycle Indices
  Identity              1     x_1^6
  Vertex rotation       8     x_3^2
  Edge rotation         6     x_2^3
  Small face rotation   6     x_1^2x_4^1
  Large face rotation   3     x_1^2x_2^2 (End)

L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 254 (corrected).
N. G. De Bruijn, Polya's theory of counting, in E. F. Beckenbach, ed., Applied Combinatorial Mathematics, Wiley, 1964, pp. 144-184 (see p. 147).
M. Gardner, New Mathematical Diversions from Scientific American. Simon and Schuster, NY, 1966, p. 246 (the formula given is incorrect but was corrected in the second printing).
J.-P. Delahaye, 'Le miraculeux "lemme de Burnside"','Le coloriage du cube' p. 147 in 'Pour la Science' (French edition of 'Scientific American') No.350 December 2006 Paris.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Polyhedron Coloring
Index entries for linear recurrences with constant coefficients, signature (7,-21,35,-35,21,-7,1)

Cf. A198833 (unoriented), A093566(n+1) (chiral), A337898 (achiral).
Other elements: A060530 (edges), A000543 (cube vertices, octahedron faces).
Cf. A006008 (tetrahedron), A000545 (dodecahedron faces, icosahedron vertices), A054472 (icosahedron faces, dodecahedron vertices).
Row 3 of A325004 (orthoplex vertices, orthotope facets) and A337887 (orthotope faces, orthoplex peaks).

[(n^6 + 3*n^4 + 12*n^3 + 8*n^2)/24: n in [1..30]]; // Vincenzo Librandi, Apr 27 2012

CoefficientList[Series[x*(1+3*x+8*x^2+16*x^3+2*x^4)/(1-x)^7,{x,0,33}],x] (* Vincenzo Librandi, Apr 27 2012 *)

a(n) = (n^6 + 3*n^4 + 12*n^3 + 8*n^2)/24 = n+8*C(n, 2)+30*C(n, 3)+68*C(n, 4)+75*C(n, 5)+30*C(n, 6). Each term of the RHS indicates the number of ways to use n colors to color the cube faces (octahedron vertices) with exactly 1, 2, 3, 4, 5, or 6 colors.
G.f.: x*(1+3*x+8*x^2+16*x^3+2*x^4)/(1-x)^7. - Colin Barker, Jan 29 2012
a(n) = A198833(n) + A093566(n+1) = 2*A198833(n) - A337898(n) = 2*A093566(n+1) + A337898(n). - Robert A. Russell, Oct 08 2020

Corrected version of A006550 and A006529.

Entry revised by N. J. A. Sloane, Jan 03 2005

A093566 a(n) = n(n-1)(n-2)(n-3)(n^2-3*n-2)/48.

Original entry on oeis.org

0, 0, 0, 0, 1, 20, 120, 455, 1330, 3276, 7140, 14190, 26235, 45760, 76076, 121485, 187460, 280840, 410040, 585276, 818805, 1125180, 1521520, 2027795, 2667126, 3466100, 4455100, 5668650, 7145775, 8930376, 11071620, 13624345, 16649480, 20214480

Offset: 0

Robert G. Wilson v and Santi Spadaro, Mar 31 2004

a(n+1) is the number of chiral pairs of colorings of the faces of a cube (vertices of a regular octahedron) using n or fewer colors. - Robert A. Russell, Sep 28 2020

			For a(3+1) = 1, each of the three colors is applied to a pair of adjacent faces of the cube (vertices of the octahedron). - _Robert A. Russell_, Sep 28 2020

Solomon W. Golomb, Iterated binomial coefficients, Amer. Math. Monthly, 87 (1980), 719-727.
Index entries for linear recurrences with constant coefficients, signature (7,-21,35,-35,21,-7,1).

From Robert A. Russell, Sep 28 2020: (Start)
Cf. A047780 (oriented), A198833 (unoriented), A337898 (achiral) colorings.
a(n+1) = A325006(3,n) (chiral pairs of colorings of orthotope facets or orthoplex vertices).
a(n+1) = A337889(3,n) (chiral pairs of colorings of orthotope faces or orthoplex peaks).
Other polyhedra: A000332 (tetrahedron), A337896 (cube/octahedron).
(End)

Table[ Binomial[ Binomial[n-1, 2], 3], {n,0,32}]
LinearRecurrence[{7,-21,35,-35,21,-7,1},{0,0,0,0,1,20,120},40] (* Harvey P. Dale, Feb 18 2016 *)

a(n)=n*(n-1)*(n-2)*(n-3)*(n^2-3*n-2)/48 \\ Charles R Greathouse IV, Jun 11 2015

[(binomial(binomial(n,2),3)) for n in range(-1, 33)] # Zerinvary Lajos, Nov 30 2009

a(n) = binomial(binomial(n-1, 2), 3).
G.f.: -x^4*(1+13*x+x^2)/(x-1)^7. - R. J. Mathar, Dec 08 2010
a(n+1) = 1*C(n,3) + 16*C(n,4) + 30*C(n,5) + 15*C(n,6), where the coefficient of C(n,k) is the number of chiral pairs of colorings using exactly k colors. - Robert A. Russell, Sep 28 2020
a(n) = A000217(n-1)*A239352(n-2)/6. - R. J. Mathar, Mar 25 2022

Edited (with a new definition) by N. J. A. Sloane, Jul 02 2008

A199406 The number of inequivalent ways to color the edges of a cube using at most n colors.

Original entry on oeis.org

1, 144, 12111, 358120, 5131650, 45528756, 288936634, 1433251296, 5887880415, 20842168600, 65402344161, 185788177224, 485443851256, 1181242399260, 2703252560100, 5864398969216, 12138503871789, 24101498435616, 46112016365155, 85335258695400, 153249227870046

Offset: 1

Geoffrey Critzer, Nov 05 2011

Two edge colorings are equivalent if one is the mirror image of the other or the cube can be picked up and rotated in any manner to obtain the other.
The group here has order 48 (compare A060530). - N. J. A. Sloane, Aug 14 2012
Also the number of unoriented colorings of the 12 edges of a regular octahedron with n or fewer colors. The Schläfli symbols of the cube and octahedron are {4,3} and {3,4} respectively. They are mutually dual. For an unoriented coloring, chiral pairs are counted as one. - Robert A. Russell, Oct 17 2020

T. D. Noe, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1).

Cf. A060530 (oriented), A337406 (chiral), A331351 (achiral), A128766 (cube vertices, octahedron faces), A198833 (cube faces, octahedron vertices), A063842(n-1) (tetrahedron), A337963 (dodecahedron, icosahedron).

Row 3 of A337408 (orthotope edges, orthoplex ridges) and A337412 (orthoplex edges, orthotope ridges).

Table[CycleIndex[KSubsetGroup[Automorphisms[CubicalGraph], Edges[CubicalGraph]],s] /. Table[s[i]->n, {i,1,6}], {n,1,15}]
Table[(8n^2+12n^3+8n^4+4n^6+12n^7+3n^8+n^12)/48, {n,20}] (* Robert A. Russell, Oct 17 2020 *)

a(n) = n^12/48 + n^8/16 + n^7/4 + n^6/12 + n^4/6 + n^3/4 + n^2/6.
Cycle index = 1/48(s_1^12+3s_1^4s_2^4+12s_1^2s_2^5+4s_2^6+8s_3^4+12s_4^3+8s_6^2).
G.f.: -x*(76*x^10 +10016*x^9 +212772*x^8 +1380453*x^7 +3384939*x^6 +3388593*x^5 +1380279*x^4 +211623*x^3 +10317*x^2 +131*x +1)/(x -1)^13. [Colin Barker, Aug 13 2012]
From Robert A. Russell, Oct 17 2020: (Start)
a(n) = A060530(n) - A337406(n) = (A060530(n) + A331351(n)) / 2 = A337406(n) + A331351(n).
a(n) = 1*C(n,1) + 142*C(n,2) + 11682*C(n,3) + 310536*C(n,4) + 3460725*C(n,5) + 19870590*C(n,6) + 65886660*C(n,7) + 133585200*C(n,8) + 168399000*C(n,9) + 128898000*C(n,10) + 54885600*C(n,11) + 9979200*C(n,12), where the coefficient of C(n,k) is the number of unoriented colorings using exactly k colors. (End)

A252705 The number of ways to color the faces of a regular dodecahedron with n colors, counting mirror images as one.

Original entry on oeis.org

1, 82, 5379, 148648, 2085655, 18356514, 116081245, 574795936, 2359033605, 8345970370, 26180606287, 74354990568, 194253329803, 472634761522, 1081541381145, 2346163937920, 4856060529001, 9641643580530, 18446420258299, 34136541925480, 61303301959263

Offset: 1

Robert A. Russell, Dec 20 2014

The cycle index using the full automorphism group for faces of a dodecahedron is (x1^12+15*x2^6+20*x3^4+24*x1^2*x5^2+15*x1^4*x2^4+x2^6+20*x6^2+24*x2*x10)/120.

Also the number of ways to color the vertices of a regular icosahedron with n colors, counting mirror images as one.

			For n=2, a(2)=82, the number of ways to color the faces of a regular dodecahedron with two colors, counting mirror images as the same. Of these, two use the same color for all faces, and 80 use both colors.

F. S. Roberts and B. Tesman, Applied Combinatorics, 2d Ed., Pearson Prentice Hall, 2005, pages 439-488.
J. H. van Lint and R. M. Wilson, A Course in Combinatorics, Cambridge University Press, 1992, pages 461-474.

Colin Barker, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1).

Cf. A000545 (number when mirror images are counted separately).

Cf. A000332 (tetrahedron), A198833 (cube), A128766 (octahedron), A252704 (icosahedron).

Table[n^2(n^2+1)(n^8-n^6+16n^4+44)/120,{n,1,30}]

vector(60, n, n^2*(n^2+1)*(n^8-n^6+16*n^4+44)/120) \\ Michel Marcus, Dec 21 2014

a(n) = n^2*(n^2+1)*(n^8-n^6+16*n^4+44)/120.
G.f.: x*(x+1)*(x^10+68*x^9+4323*x^8+80508*x^7+469548*x^6+886944*x^5+469548*x^4 +80508*x^3+4323*x^2+68*x+1)/(1-x)^13.
a(n) = C(n,1)+80*C(n,2)+5136*C(n,3)+127620*C(n,4)+1395390*C(n,5)+7965948*C(n,6) +26368272*C(n,7)+53438112*C(n,8)+67359600*C(n,9)+51559200*C(n,10)+21954240*C(n,11)+3991680*C(n,12). Each term indicates the number of ways to use n colors to color the dodecahedron with exactly 1, 2, 3, ..., 10, 11, or 12 colors.

A252704 The number of ways to color the faces of a regular icosahedron with n colors, counting mirror images as one.

Original entry on oeis.org

1, 9436, 29131965, 9164844880, 794760482005, 30468267440892, 664937321266057, 9607687940954944, 101313914601247929, 833333459683337020, 5606250353568935653, 31948001059902168528, 158374701054784400173, 697235469002925659548

Offset: 1

Robert A. Russell, Dec 20 2014

The cycle index using the full automorphism group for faces of an icosahedron is (x1^20+15*x2^10+20*x1^2*x3^6+24*x5^4+15*x1^4*x2^8+x2^10+20*x2*x6^3+24*x10^2)/120.

Also the number of ways to color the vertices of a regular dodecahedron with n colors, counting mirror images as one.

			For n=2, a(2)=9436, the number of ways to color the faces of a regular icosahedron with two colors, counting mirror images as the same. Of these, two use the same color for all faces, and 9434 use both colors.

F. S. Roberts and B. Tesman, Applied Combinatorics, 2d Ed., Pearson Prentice Hall, 2005, pages 439-488.
J. H. van Lint and R. M. Wilson, A Course in Combinatorics, Cambridge University Press, 1992, pages 461-474.

Index entries for linear recurrences with constant coefficients, signature (21, -210, 1330, -5985, 20349, -54264, 116280, -203490, 293930, -352716, 352716, -293930, 203490, -116280, 54264, -20349, 5985, -1330, 210, -21, 1).

Cf. A054472 (number when mirror images are counted separately).

Cf. A000332 (tetrahedron), A198833 (cube), A128766 (octahedron), A252705 (dodecahedron).

Table[n^2(n^18+15n^10+16n^8+20n^6+44n^2+24)/120,{n,1,30}]

a(n) = n^2*(n^18+15*n^10+16*n^8+20*n^6+44*n^2+24)/120.
G.f.: x*(x+1)*(x^18+9414*x^17+28924605*x^16+8526129240*x^15+599877779040*x^14 +15064347905208*x^13+164923977484392*x^12+874644240573864*x^11 +2363591146376826*x^10+3299427410370820*x^9+2363591146376826*x^8 +874644240573864*x^7+164923977484392*x^6+15064347905208*x^5 +599877779040*x^4+8526129240*x^3+28924605*x^2+9414*x+1)/(1-x)^21.
a(n) = C(n,1)+9434*C(n,2)+29103660*C(n,3)+9048373632*C(n,4)+749227482900*C(n,5) +25836594724296*C(n,6)+468029669151744*C(n,7)+5097434180194944*C(n,8) +36322119730219680*C(n,9)+178947770105039040*C(n,10)+632296226073536640*C(n,11)+1640646875234062080*C(n,12)+3168965153453299200*C(n,13)+4578694359419980800*C(n,14)+4929160839482880000*C(n,15)+3897035952819609600*C(n,16) +2197214626134528000*C(n,17)+836310065310720000*C(n,18)+192604742313984000*C(n,19)+20274183401472000*C(n,20).  Each term indicates the number of ways to use n colors to color the icosahedron with exactly 1, 2, 3, ..., 18, 19, or 20 colors.

A325005 Array read by descending antidiagonals: A(n,k) is the number of unoriented colorings of the facets of a regular n-dimensional orthotope using up to k colors.

Original entry on oeis.org

1, 3, 1, 6, 6, 1, 10, 21, 10, 1, 15, 55, 56, 15, 1, 21, 120, 220, 126, 21, 1, 28, 231, 680, 715, 252, 28, 1, 36, 406, 1771, 3060, 2002, 462, 36, 1, 45, 666, 4060, 10626, 11628, 5005, 792, 45, 1, 55, 1035, 8436, 31465, 53130, 38760, 11440, 1287, 55, 1

Offset: 1

Robert A. Russell, Mar 23 2019

Also called hypercube, n-dimensional cube, and measure polytope. For n=1, the figure is a line segment with two vertices. For n=2 the figure is a square with four edges. For n=3 the figure is a cube with six square faces. For n=4, the figure is a tesseract with eight cubic facets. The Schläfli symbol, {4,3,...,3}, of the regular n-dimensional orthotope (n>1) consists of a four followed by n-2 threes. Each of its 2n facets is an (n-1)-dimensional orthotope. Two unoriented colorings are the same if congruent; chiral pairs are counted as one.

Also the number of unoriented colorings of the vertices of a regular n-dimensional orthoplex using up to k colors.

			Array begins with A(1,1):
1  3    6    10     15      21       28        36        45         55 ...
1  6   21    55    120     231      406       666      1035       1540 ...
1 10   56   220    680    1771     4060      8436     16215      29260 ...
1 15  126   715   3060   10626    31465     82251    194580     424270 ...
1 21  252  2002  11628   53130   201376    658008   1906884    5006386 ...
1 28  462  5005  38760  230230  1107568   4496388  15890700   50063860 ...
1 36  792 11440 116280  888030  5379616  26978328 115775100  436270780 ...
1 45 1287 24310 319770 3108105 23535820 145008513 752538150 3381098545 ...
For A(1,2) = 3, the two achiral colorings use just one of the two colors for both vertices; the chiral pair uses one color for each vertex.

Robert A. Russell, Table of n, a(n) for n = 1..325
Robin Chapman, answer to Coloring the faces of a hypercube, Math StackExchange, September 30, 2010.

Cf. A325004 (oriented), A325006 (chiral), A325007 (achiral), A325009 (exactly k colors).
Other n-dimensional polytopes: A325000 (simplex), A325013 (orthoplex).
Rows 1-3 are A000217, A002817, A198833.

Table[Binomial[Binomial[d-n+2,2]+n-1,n],{d,1,11},{n,1,d}] // Flatten

A(n,k) = binomial(n + binomial(k+1,2) - 1, n).
A(n,k) = Sum_{j=1..2n} A325009(n,j) * binomial(k,j).
A(n,k) = A325004(n,k) - A325006(n,k) = (A325004(n,k) + A325007(n,k)) / 2 = A325006(n,k) + A325007(n,k).
G.f. for row n: Sum_{j=1..2n} A325009(n,j) * x^j / (1-x)^(j+1).
Linear recurrence for row n: T(n,k) = Sum_{j=0..2n} binomial(-2-j,2n-j) * T(n,k-1-j).
G.f. for column k: 1/(1-x)^binomial(k+1,2) - 1.

A337898 Number of achiral colorings of the 6 square faces of a cube or the 6 vertices of a regular octahedron using n or fewer colors.

Original entry on oeis.org

1, 10, 55, 200, 560, 1316, 2730, 5160, 9075, 15070, 23881, 36400, 53690, 77000, 107780, 147696, 198645, 262770, 342475, 440440, 559636, 703340, 875150, 1079000, 1319175, 1600326, 1927485, 2306080, 2741950, 3241360

Offset: 1

Robert A. Russell, Sep 28 2020

An achiral coloring is identical to its reflection. The Schläfli symbols for the cube and regular octahedron are {4,3} and {3,4} respectively. They are mutually dual.
There are 24 elements in the automorphism group of the regular octahedron/cube that are not in the rotation group. They divide into five conjugacy classes. The first formula is obtained by averaging the cube face (octahedron vertex) cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
  Conjugacy Class     Count    Odd Cycle Indices
  Inversion              1     x_2^3
  Vertex rotation*       8     x_6^1           Asterisk indicates that the
  Edge rotation*         6     x_1^2x_2^2      operation is followed by an
  Small face rotation*   6     x_2^1x_4^1      inversion.
  Large face rotation*   3     x_1^4x_2^1

Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A047780 (oriented), A198833 (unoriented), A093566(n+1) (chiral).
Other elements: A331351 (edges), A337897 (cube vertices/octahedron faces).
Other polyhedra: A006003 (simplex), A337962 (dodecahedron faces, icosahedron vertices), A337960 (icosahedron faces, dodecahedron vertices).
Row 3 of A325007 (orthotope facets, orthoplex vertices) and A337890 (orthotope faces, orthoplex peaks).

Table[n(1+n)(2+n)(4-3n+3n^2)/24, {n, 35}]
LinearRecurrence[{6,-15,20,-15,6,-1},{1,10,55,200,560,1316},40] (* Harvey P. Dale, Feb 15 2022 *)

a(n)=n*(n+1)*(n+2)*(3*n^2-3*n+4)/24 \\ Charles R Greathouse IV, Oct 21 2022

a(n) = n * (n+1) * (n+2) * (3*n^2 - 3*n + 4) / 24.
a(n) = 1*C(n,1) + 8*C(n,2) + 28*C(n,3) + 36*C(n,4) + 15*C(n,5), where the coefficient of C(n,k) is the number of achiral colorings using exactly k colors.
a(n) = 2*A198833(n) - A047780(n) = A047780(n) - 2*A093566(n+1) = A198833(n) - A093566(n+1).
G.f.: x * (x + 4*x^2 + 10*x^3) / (1-x)^6.
a(n) = 6*a(n-1) - 15*a(n-2) + 20*a(n-3) - 15*a(n-4) + 6*a(n-5) - a(n-6). - Wesley Ivan Hurt, Sep 30 2020

A337888 Array read by descending antidiagonals: T(n,k) is the number of unoriented colorings of the square faces of a regular n-dimensional orthotope (hypercube) using k or fewer colors.

Original entry on oeis.org

1, 2, 1, 3, 10, 1, 4, 56, 49127, 1, 5, 220, 740360358, 314824532572147370464, 1, 6, 680, 733776248840, 38491882660671134164965704408524083, 38343035259947576596859948806931124970404417593861154473053467181056, 1

Offset: 2

Robert A. Russell, Sep 28 2020

Each chiral pair is counted as one when enumerating unoriented arrangements. Each face is a square bounded by four edges. For n=2, the figure is a square with one face. For n=3, the figure is a cube with 6 faces. For n=4, the figure is a tesseract with 24 faces. The number of faces is 2^(n-2)*C(n,2).

Also the number of unoriented colorings of peaks of an n-dimensional orthoplex. A peak is an (n-3)-dimensional simplex.

			Array begins with T(2,1):
 1     2         3            4               5                 6 ...
 1    10        56          220             680              1771 ...
 1 49127 740360358 733776248840 155261523065875 12340612271439081 ...

K. Balasubramanian, Computational enumeration of colorings of hyperplanes of hypercubes for all irreducible representations and applications, J. Math. Sci. & Mod. 1 (2018), 158-180.

Cf. A337887 (oriented), A337889 (chiral), A337890 (achiral).
Other elements: A325013 (vertices), A337408 (edges).
Other polytopes: A337884 (simplex), A337892 (orthoplex).
Rows 2-4 are A000027, A198833, A331355.

m=2; (* dimension of color element, here a square face *)
Fi1[p1_] := Module[{g, h}, Coefficient[Product[g = GCD[k1, p1]; h = GCD[2 k1, p1]; (1 + 2 x^(k1/g))^(r1[[k1]] g) If[Divisible[k1, h], 1, (1+2x^(2 k1/h))^(r2[[k1]] h/2)], {k1, Flatten[Position[cs, n1_ /; n1 > 0]]}], x, n - m]];
FiSum[] := (Do[Fi2[k2] = Fi1[k2], {k2, Divisors[per]}];DivisorSum[per, DivisorSum[d1 = #, MoebiusMu[d1/#] Fi2[#] &]/# &]);
CCPol[r_List] := (r1 = r; r2 = cs - r1; per = LCM @@ Table[If[cs[[j2]] == r1[[j2]], If[0 == cs[[j2]],1,j2], 2j2], {j2,n}]; Times @@ Binomial[cs, r1] 2^(n-Total[cs]) b^FiSum[]);
PartPol[p_List] := (cs = Count[p, #]&/@ Range[n]; Total[CCPol[#]&/@ Tuples[Range[0,cs]]]);
pc[p_List] := Module[{ci, mb}, mb = DeleteDuplicates[p]; ci = Count[p, #]&/@ mb; n!/(Times@@(ci!) Times@@(mb^ci))] (*partition count*)
row[n_Integer] := row[n] = Factor[(Total[(PartPol[#] pc[#])&/@ IntegerPartitions[n]])/(n! 2^n)]
array[n_, k_] := row[n] /. b -> k
Table[array[n,d+m-n], {d,6}, {n,m,d+m-1}] // Flatten

The algorithm used in the Mathematica program below assigns each permutation of the axes to a partition of n and then considers separate conjugacy classes for axis reversals. It uses the formulas in Balasubramanian's paper. If the value of m is increased, one can enumerate colorings of higher-dimensional elements beginning with T(m,1).

T(n,k) = A337887(n,k) - A337889(n,k) = (A337887(n,k) + A337890(n,k)) / 2 = A337889(n,k) + A337890(n,k).

cp's OEIS Frontend

A047780 Number of inequivalent ways to color faces of a cube using at most n colors.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Magma

Mathematica

Formula

Extensions

A093566 a(n) = n*(n-1)*(n-2)*(n-3)*(n^2-3*n-2)/48.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Sage

Formula

Extensions

A199406 The number of inequivalent ways to color the edges of a cube using at most n colors.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A252705 The number of ways to color the faces of a regular dodecahedron with n colors, counting mirror images as one.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A252704 The number of ways to color the faces of a regular icosahedron with n colors, counting mirror images as one.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Formula

A325005 Array read by descending antidiagonals: A(n,k) is the number of unoriented colorings of the facets of a regular n-dimensional orthotope using up to k colors.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A337898 Number of achiral colorings of the 6 square faces of a cube or the 6 vertices of a regular octahedron using n or fewer colors.

Views

Author

Keywords

Comments

Links

A093566 a(n) = n(n-1)(n-2)(n-3)(n^2-3*n-2)/48.