|
|
A291909
|
|
Triangle read by rows: T(n,k) is the coefficient of x^(2*k) in the cycle polynomial of the complete bipartite graph K_{n,n}, 1 <= k <= n.
|
|
4
|
|
|
0, 0, 1, 0, 9, 6, 0, 36, 96, 72, 0, 100, 600, 1800, 1440, 0, 225, 2400, 16200, 51840, 43200, 0, 441, 7350, 88200, 635040, 2116800, 1814400, 0, 784, 18816, 352800, 4515840, 33868800, 116121600, 101606400, 0, 1296, 42336, 1143072, 22861440, 304819200, 2351462400, 8230118400, 7315660800
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
COMMENTS
|
Also the coefficients of x^(2*k) in the chordless cycle polynomial of the n X n rook graph. - Eric W. Weisstein, Feb 21 2018
|
|
LINKS
|
|
|
FORMULA
|
T(n, k) = binomial(n, k)^2*k!*(k - 1)!/2 for k > 1.
|
|
EXAMPLE
|
Cycle polynomials are
0
x^4
9 x^4 + 6 x^6
36 x^4 + 96 x^6 + 72 x^8
100 x^4 + 600 x^6 + 1800 x^8 + 1440 x^10
...
so the first few rows are
0;
0, 1;
0, 9, 6;
0, 36, 96, 72;
...
|
|
MATHEMATICA
|
CoefficientList[Table[Sum[Binomial[n, k]^2 k! (k - 1)! x^k, {k, 2, n}]/2, {n, 10}], x] // Flatten
Join[{0}, CoefficientList[Table[n^2 (HypergeometricPFQ[{1, 1, 1 - n, 1 - n}, {2}, x] - 1)/2, {n, 2, 10}], x]] // Flatten (* Eric W. Weisstein, Feb 21 2018 *)
|
|
PROG
|
(PARI) T(n, k) = if(k>1, binomial(n, k)^2*k!*(k - 1)!/2, 0) \\ Andrew Howroyd, Apr 29 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Terms T(n,0) for n >= 3 deleted (in order to have a regular triangle) by Pontus von Brömssen, Sep 06 2022
|
|
STATUS
|
approved
|
|
|
|