OFFSET
0,3
LINKS
FORMULA
a(n) = Sum_{k=1..n} (-n)^(n-k)*(k-1)!*binomial(n,k).
E.g.f.: -log(1 - LambertW(x))/(1 + LambertW(x)). - Vaclav Kotesovec, Jun 09 2019
a(n) ~ -(-1)^n * log(2) * n^n. - Vaclav Kotesovec, Jun 09 2019
MATHEMATICA
Table[n! SeriesCoefficient[-Exp[-n x] Log[1 - x], {x, 0, n}], {n, 0, 19}]
Table[Sum[(-n)^(n - k) (k - 1)! Binomial[n, k], {k, 1, n}], {n, 0, 19}]
nmax = 20; CoefficientList[Series[-Log[1 - LambertW[x]]/(1 + LambertW[x]), {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, Jun 09 2019 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Apr 10 2018
STATUS
approved