A060530
Number of inequivalent ways to color edges of a cube using at most n colors.
Original entry on oeis.org
0, 1, 218, 22815, 703760, 10194250, 90775566, 576941778, 2863870080, 11769161895, 41669295250, 130772947481, 371513523888, 970769847320, 2362273657030, 5406141568500, 11728193258496, 24276032182173, 48201464902410, 92221684354915
Offset: 0
- 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).
- Harry J. Smith, Table of n, a(n) for n=0..200
- Index entries for linear recurrences with constant coefficients, signature (13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1).
Other elements:
A000543 (cube vertices, octahedron faces),
A047780 (cube faces, octahedron vertices).
Row 3 of
A337407 (orthotope edges, orthoplex ridges) and
A337411 (orthoplex edges, orthotope ridges).
-
Table[(n^12+6n^7+3n^6+8n^4+6n^3)/24,{n,0,20}] (* Harvey P. Dale, Feb 13 2013 *)
-
{ for (n=0, 200, write("b060530.txt", n, " ", (n^12 + 6*n^7 + 3*n^6 + 8*n^4 + 6*n^3)/24); ) } \\ Harry J. Smith, Jul 06 2009
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
- 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).
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 *)
A337409
Array read by descending antidiagonals: T(n,k) is the number of chiral pairs of colorings of the edges of a regular n-dimensional orthotope (hypercube) using k or fewer colors.
Original entry on oeis.org
0, 0, 0, 0, 0, 0, 0, 3, 74, 0, 0, 15, 10704, 11158298, 0, 0, 45, 345640, 4825452718593, 314824408633217132928, 0, 0, 105, 5062600, 48038354542204960, 38491882659952177472606694634030116, 136221825854745676076981182469325427379054390050209792, 0
Offset: 1
Table begins with T(1,1):
0 0 0 0 0 0 0 0 0 ...
0 0 3 15 45 105 210 378 630 ...
0 74 10704 345640 5062600 45246810 288005144 1430618784 5881281480 ...
For T(2,3)=3, the chiral arrangements are AABC-AACB, ABBC-ACBB, and ABCC-ACCB.
-
m=1; (* dimension of color element, here an edge *)
Fi1[p1_] := Module[{g, h}, Coefficient[Product[g = GCD[k1, p1]; h = GCD[2 k1, p1]; (1+2x^(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}]; If[EvenQ[Sum[If[EvenQ[j3], r1[[j3]], r2[[j3]]], {j3,n}]],1,-1]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,7}, {n,m,d+m-1}] // Flatten
A337413
Array read by descending antidiagonals: T(n,k) is the number of chiral pairs of colorings of the edges of a regular n-dimensional orthoplex (cross polytope) using k or fewer colors.
Original entry on oeis.org
0, 0, 0, 0, 0, 0, 0, 3, 74, 0, 0, 15, 10704, 40927, 0, 0, 45, 345640, 731279799, 280317324, 0, 0, 105, 5062600, 732272925320, 3163614120031068, 24869435516248, 0, 0, 210, 45246810, 155180061396500, 314800331906964016128, 919853357924272852197243, 29931599129719666392, 0
Offset: 1
Table begins with T(1,1):
0 0 0 0 0 0 0 0 0 ...
0 0 3 15 45 105 210 378 630 ...
0 74 10704 345640 5062600 45246810 288005144 1430618784 5881281480 ...
For T(2,3)=3, the chiral arrangements are AABC-AACB, ABBC-ACBB, and ABCC-ACCB.
-
m=1; (* dimension of color element, here an edge *)
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, m+1]];
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}]; If[EvenQ[Sum[If[EvenQ[j3], r1[[j3]], r2[[j3]]], {j3,n}]],1,-1]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,8}, {n,m,d+m-1}] // Flatten
A331351
Number of achiral colorings of the edges of a cube or regular octahedron.
Original entry on oeis.org
1, 70, 1407, 12480, 69050, 281946, 931490, 2632512, 6598935, 15041950, 31740841, 62830560, 117855192, 211141490, 363551700, 604679936, 975561405, 1531968822, 2348375395, 3522668800, 5181705606, 7487800650, 10646250902
Offset: 1
- G. Royle, Partitions and Permutations
- Index entries for linear recurrences with constant coefficients, signature (9, -36, 84, -126, 126, -84, 36, -9, 1).
Row 3 of
A337410 (orthotope edges, orthoplex ridges) and
A337414 (orthoplex edges, orthotope ridges).
-
Table[(8n^2 + 6n^3 + n^6 + 6n^7 + 3n^8)/24, {n, 1, 30}]
LinearRecurrence[{9, -36, 84, -126, 126, -84, 36, -9, 1}, {1, 70, 1407, 12480, 69050, 281946, 931490, 2632512, 6598935}, 25]
A337896
Number of chiral pairs of colorings of the 8 triangular faces of a regular octahedron or the 8 vertices of a cube using n or fewer colors.
Original entry on oeis.org
0, 1, 66, 920, 6350, 29505, 106036, 317856, 832140, 1961025, 4248310, 8590296, 16398746, 29814785, 51983400, 87399040, 142333656, 225359361, 347978730, 525376600, 777308070, 1129138241, 1613050076, 2269437600
Offset: 1
For a(2)=1, centering the octahedron (cube) at the origin and aligning the diagonals (edges) with the axes, color the faces (vertices) in the octants ---, --+, -++, and +++ with one color and the other 4 elements with the other color.
Other elements:
A337406 (edges),
A093566(n+1) (cube faces, octahedron vertices).
Row 3 of
A325014 (chiral pairs of colorings of orthoplex facets or orthotope vertices).
Row 3 of
A337893 (chiral pairs of colorings of orthoplex faces or orthotope peaks).
A337964
Number of chiral pairs of colorings of the 30 edges of a regular dodecahedron or icosahedron using n or fewer colors.
Original entry on oeis.org
0, 8939560, 1715748562809, 9607677585671872, 7761021378582359350, 1842282662572342834488, 187827835730804603558945, 10316166993798251995440640, 353259652291613627252061348
Offset: 1
- Index entries for linear recurrences with constant coefficients, signature (31, -465, 4495, -31465, 169911, -736281, 2629575, -7888725, 20160075, -44352165, 84672315, -141120525, 206253075, -265182525, 300540195, -300540195, 265182525, -206253075, 141120525, -84672315, 44352165, -20160075, 7888725, -2629575, 736281, -169911, 31465, -4495, 465, -31, 1).
Other elements:
A337959 (dodecahedron vertices, icosahedron faces),
A337961 (dodecahedron faces, icosahedron vertices).
A337899
Number of chiral pairs of colorings of the edges of a regular tetrahedron using n or fewer colors.
Original entry on oeis.org
0, 1, 21, 140, 575, 1785, 4606, 10416, 21330, 40425, 71995, 121836, 197561, 308945, 468300, 690880, 995316, 1404081, 1943985, 2646700, 3549315, 4694921, 6133226, 7921200, 10123750, 12814425, 16076151, 20001996
Offset: 1
For a(2)=1, two opposite edges and one edge connecting those have one color; the other three edges have the other color.
Other elements:
A000332 (vertices and faces).
Other polyhedra:
A337406 (cube/octahedron).
Row 3 of
A327085 (chiral pairs of colorings of edges or ridges of an n-simplex).
Showing 1-8 of 8 results.
Comments