login
A346954
E.g.f.: -log( 1 - (exp(x) - 1)^4 / 4! ).
3
1, 10, 65, 350, 1736, 9030, 60355, 561550, 6188996, 69919850, 781211795, 8854058850, 106994019406, 1433756147470, 21287253921635, 339206526695750, 5630710652048216, 96341917117951890, 1708973354556320875, 31787279786739738250, 623964823224788294426
OFFSET
4,2
FORMULA
a(n) = Stirling2(n,4) + (1/n) * Sum_{k=1..n-1} binomial(n,k) * Stirling2(n-k,4) * k * a(k).
a(n) ~ (n-1)! / (log(2^(3/4)*3^(1/4) + 1))^n. - Vaclav Kotesovec, Aug 09 2021
MATHEMATICA
nmax = 24; CoefficientList[Series[-Log[1 - (Exp[x] - 1)^4/4!], {x, 0, nmax}], x] Range[0, nmax]! // Drop[#, 4] &
a[n_] := a[n] = StirlingS2[n, 4] + (1/n) Sum[Binomial[n, k] StirlingS2[n - k, 4] k a[k], {k, 1, n - 1}]; Table[a[n], {n, 4, 24}]
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Aug 08 2021
STATUS
approved