OFFSET
0,3
COMMENTS
In general, for k >= 1, if e.g.f. = 1 / (1 + k*log(1 - x))^(1/k), then a(n) ~ n! * exp(n/k) / (Gamma(1/k) * k^(1/k) * n^(1 - 1/k) * (exp(1/k) - 1)^(n + 1/k)). - Vaclav Kotesovec, Aug 14 2021
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..343
FORMULA
a(n) = Sum_{k=0..n} |Stirling1(n,k)| * A008542(k).
a(n) ~ n! * exp(n/6) / (Gamma(1/6) * 6^(1/6) * n^(5/6) * (exp(1/6) - 1)^(n + 1/6)). - Vaclav Kotesovec, Aug 14 2021
MATHEMATICA
nmax = 17; CoefficientList[Series[1/(1 + 6 Log[1 - x])^(1/6), {x, 0, nmax}], x] Range[0, nmax]!
Table[Sum[Abs[StirlingS1[n, k]] 6^k Pochhammer[1/6, k], {k, 0, n}], {n, 0, 17}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Aug 11 2021
STATUS
approved