A334280 Irregular table read by rows: T(n, k) is the coefficient of x^k in the chromatic polynomial of the 1-skeleton of the n-dimensional demihypercube, 0 <= k <= 2^(n-1).
0, 1, 0, -1, 1, 0, -6, 11, -6, 1, 0, -2790, 7467, -7852, 4300, -1346, 244, -24, 1, 0, -36586695600, 132041735820, -208601259660, 194243767689, -120509323400, 53195294240, -17371817260, 4296667608, -815202340, 119111090, -13339000, 1127752, -69860, 3000, -80, 1
Offset: 1
Examples
n\k| 0 1 2 3 4 5 6 7 8 ---+---------------------------------------- 1| 0 1 2| 0 -1 1 3| 0 -6 11 -6 1 4| 0 -2790 7467 -7852 4300 -1346 244 -24 1
Links
- Eric Weisstein's World of Mathematics, Chromatic Polynomial
- Eric Weisstein's World of Mathematics, Halved Cube Graph
- Wikipedia, Demihypercube
Programs
-
Mathematica
T[n_, k_] := Coefficient[ChromaticPolynomial[GraphData[{"HalvedCube", n}], x], x, k]