|
|
A309972
|
|
Product of multinomial coefficients M(n;lambda), where lambda ranges over all partitions of n.
|
|
3
|
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(3) = M(3;3) * M(3;2,1) * M(3;1,1,1) = 1 * 3 * 6 = 18.
|
|
MAPLE
|
b:= proc(n, i) option remember; `if`(n=0 or i=1, [n!], [map(t->
binomial(n, i)*t, b(n-i, min(n-i, i)))[], b(n, i-1)[]])
end:
a:= n-> mul(i, i=b(n$2)):
|
|
MATHEMATICA
|
b[n_, i_] := b[n, i] = If[n == 0 || i == 1, {n!}, Join[Binomial[n, i] #& /@ b[n - i, Min[n - i, i]], b[n, i - 1]]];
a[n_] := Times @@ b[n, n];
|
|
CROSSREFS
|
Rightmost terms in rows of A309951.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|