login
A009265
Expansion of exp(tanh(x))/cosh(x).
1
1, 1, 0, -4, -8, 32, 216, -264, -7552, -9216, 349568, 1548032, -20281216, -190744448, 1350879232, 25395878400, -84211707904, -3862395551744, -286327484416, 674521189158912, 2529465981566976, -133945803441307648
OFFSET
0,4
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Exp[Tanh[x]]/Cosh[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 13 2014 *)
CROSSREFS
Sequence in context: A222537 A208924 A032467 * A173326 A173652 A149095
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Nov 13 2014
STATUS
approved