A009822 Expansion of tanh(tanh(x)*exp(x)).

0, 1, 2, -1, -28, -123, 182, 7667, 54280, -145239, -7508758, -69740537, 300239084, 17444352109, 197525621022, -1252976775365, -79313336380656, -1042490265261103, 9235164337672658, 623118827676161167

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Mathematica

Tanh[ Tanh[ x ]*Exp[ x ] ]
With[{nn = 50}, CoefficientList[Series[Tanh[Tanh[x]Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Vincenzo Librandi, Apr 11 2014 *)

Crossrefs

Sequence in context: A012415 A012660 A015155 * A246909 A249269 A245621

Adjacent sequences: A009819 A009820 A009821 * A009823 A009824 A009825

Keyword

sign

Author

R. H. Hardin, Simon Plouffe

Status

approved