|
|
A362589
|
|
Triangular array read by rows. T(n,k) is the number of ways to form an ordered pair of n-permutations and then choose a size k subset of its common descent set, n >= 0, 0 <= k <= max{0,n-1}.
|
|
0
|
|
|
1, 1, 4, 1, 36, 18, 1, 576, 432, 68, 1, 14400, 14400, 3900, 250, 1, 518400, 648000, 252000, 32400, 922, 1, 25401600, 38102400, 19404000, 3880800, 262542, 3430, 1, 1625702400, 2844979200, 1795046400, 493920000, 56664384, 2119152, 12868, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
Sum_{n>=0} Sum_{k=0..n-1} T(n,k)*u^k*z^n/(n!)^2 = u/(u + 1 - E(u*z)) where E(z) = Sum_{n>=0} z^n/(n!)^2.
Column k=1: Sum_{k=1..n-1} A192721(n,k)*k gives total number of common descents over all permutation pairs.
|
|
EXAMPLE
|
Triangle begins:
1;
1;
4, 1;
36, 18, 1;
576, 432, 68, 1;
14400, 14400, 3900, 250, 1;
...
|
|
MATHEMATICA
|
nn = 8; B[n_] := n!^2; e[z_] := Sum[z^n/B[n], {n, 0, nn}]; Map[Select[#, # > 0 &] &, Table[B[n], {n, 0, nn}] CoefficientList[Series[u/(u + 1 - e[u z]), {z, 0, nn}], {z, u}]] // Flatten
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|