OFFSET
0,3
LINKS
N. J. A. Sloane, Transforms
FORMULA
E.g.f.: (x^2 - LambertW(-x)^2)/(2*x*LambertW(-x)*(1 + LambertW(-x))).
a(n) = n! * [x^n] exp(n*x)*sinh(x).
MATHEMATICA
Table[((n + 1)^n - (n - 1)^n)/2, {n, 0, 19}]
nmax = 19; CoefficientList[Series[(x^2 - LambertW[-x]^2)/(2 x LambertW[-x] (1 + LambertW[-x])), {x, 0, nmax}], x] Range[0, nmax]!
Table[n! SeriesCoefficient[Exp[n x] Sinh[x], {x, 0, n}], {n, 0, 19}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 10 2018
STATUS
approved