A009393 Expansion of e.g.f. log(1+tanh(x))/exp(x).

0, 1, -3, 6, -8, 5, -7, 70, -72, -1311, 1309, 49214, -49216, -2653547, 2653545, 196707438, -196707440, -19194804703, 19194804701, 2385684870742, -2385684870744, -367985503366779, 367985503366777, 68980888889771126, -68980888889771128

Offset

0,3

Links

Table of n, a(n) for n=0..24.

Mathematica

nmax=24; CoefficientList[Series[Log[1+Tanh[x]]/Exp[x], {x, 0, nmax}], x]Range[0, nmax]! (* Stefano Spezia, Nov 29 2024 *)

Crossrefs

Sequence in context: A354628 A340794 A345204 * A077857 A377594 A181165

Adjacent sequences: A009390 A009391 A009392 * A009394 A009395 A009396

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Status

approved