login
A009810
Expansion of e.g.f.: tanh(tan(x))*exp(x).
0
0, 1, 2, 3, 4, -3, -42, -273, -1336, -5159, -16726, 62139, 1194700, 16414101, 153304830, 1357293927, 10698400400, 59192332081, 188012481362, -5204089208589, -107922523124588, -1943937262679379, -26275693823306202
OFFSET
0,3
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Tanh[Tan[x]]*Exp[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 02 2018 *)
CROSSREFS
Sequence in context: A009716 A009590 A009492 * A324156 A111362 A134581
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jan 02 2018
STATUS
approved