A009785 Expansion of tanh(log(1+x)*exp(x)).

0, 1, 1, 0, -12, -45, -65, 1400, 12096, 52269, -469307, -8565656, -73323052, 223125903, 11882866931, 176275489312, 328262199968, -26579607201031, -672646430878551, -4665154122148880, 76898559105113236, 3784100596619704043

Offset

0,5

Links

Table of n, a(n) for n=0..21.

Mathematica

With[{nn=30}, CoefficientList[Series[Tanh[Log[1+x]*Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 14 2018 *)

Crossrefs

Sequence in context: A340305 A194284 A355446 * A135710 A358465 A070996

Adjacent sequences: A009782 A009783 A009784 * A009786 A009787 A009788

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Sep 14 2018

Status

approved