OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..387
FORMULA
a(n) ~ tanh(exp(-1)) * n^(n-1).
a(n) = Sum_{k=0..floor(n/2)-1} binomial(n,2*k+1)*(m-2*k-1)^(m-2*k-2) - Sum_{k=1..floor(n/2)} binomial(n,2*k)*a(n-2*k). - Robert Israel, Oct 26 2016
MAPLE
F:= proc(m) option remember; add(binomial(m, 2*k+1)*(m-2*k-1)^(m-2*k-2), k=0..floor(m/2)-1) - add(binomial(m, 2*k)*procname(m-2*k), k=1..floor(m/2)) end proc:
map(F, [$0..30]); # Robert Israel, Oct 26 2016
MATHEMATICA
CoefficientList[Series[-Tanh[x]*LambertW[-x], {x, 0, 20}], x] * Range[0, 20]!
PROG
(PARI) x='x+O('x^50); concat([0, 0], Vec(serlaplace(tanh(-x)*lambertw(-x))) ) \\ G. C. Greubel, Nov 05 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Oct 17 2016
STATUS
approved