|
|
A091345
|
|
Exponential convolution of A069321(n) with itself, where we set A069321(0)=0.
|
|
0
|
|
|
0, 0, 2, 30, 398, 5430, 79022, 1238790, 20944478, 381167670, 7443745742, 155454939750, 3459933837758, 81801569650710, 2048133412585262, 54153668865539910, 1508122968767710238, 44130728380569410550
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n)=Sum(C(n, k)Sum(i!i Stirling2(k, i), i=1, .., k)Sum(i!i Stirling2(n-k, i), i=1, .., n-k), k=0, .., n)
|
|
MATHEMATICA
|
Table[ Sum[Binomial[n, k]Sum[i!i StirlingS2[k, i], {i, 1, k}]Sum[i!i StirlingS2[n - k, i], {i, 1, n - k}], {k, 0, n}], {n, 0, 20}]
nmax = 20; CoefficientList[Series[(E^x-1)^2 / (2-E^x)^4, {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, May 07 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Mario Catalani (mario.catalani(AT)unito.it), Jan 01 2004
|
|
STATUS
|
approved
|
|
|
|