A009265 Expansion of exp(tanh(x))/cosh(x).

1, 1, 0, -4, -8, 32, 216, -264, -7552, -9216, 349568, 1548032, -20281216, -190744448, 1350879232, 25395878400, -84211707904, -3862395551744, -286327484416, 674521189158912, 2529465981566976, -133945803441307648

Offset: 0

Author

R. H. Hardin

Keywords

• sign
• easy

Programs

Mathematica

With[{nn=30},CoefficientList[Series[Exp[Tanh[x]]/Cosh[x],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Nov 13 2014 *)

Extensions

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

Prior Mathematica program replaced by Harvey P. Dale, Nov 13 2014