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

Author

R. H. Hardin

Keywords

• sign
• easy

Programs

Mathematica

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

Extensions

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