|
%I #18 Jul 20 2020 18:57:23
%S 0,1,0,-1,1,0,-6,11,-6,1,0,-2790,7467,-7852,4300,-1346,244,-24,1,0,
%T -36586695600,132041735820,-208601259660,194243767689,-120509323400,
%U 53195294240,-17371817260,4296667608,-815202340,119111090,-13339000,1127752,-69860,3000,-80,1
%N 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).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ChromaticPolynomial.html">Chromatic Polynomial</a>
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/HalvedCubeGraph.html">Halved Cube Graph</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Demihypercube">Demihypercube</a>
%e n\k| 0 1 2 3 4 5 6 7 8
%e ---+----------------------------------------
%e 1| 0 1
%e 2| 0 -1 1
%e 3| 0 -6 11 -6 1
%e 4| 0 -2790 7467 -7852 4300 -1346 244 -24 1
%t T[n_, k_] := Coefficient[ChromaticPolynomial[GraphData[{"HalvedCube", n}], x], x, k]
%Y Cf. A048994 (simplex), A334278 (hypercube), A334279 (cross-polytope).
%K sign,tabf
%O 1,7
%A _Peter Kagey_, Apr 22 2020
|
