A009778 Expansion of e.g.f.: tanh(log(1+x))*exp(x).

0, 1, 1, 0, 4, -5, -9, 196, -1280, 4509, 12565, -386144, 3804516, -19339385, -75459461, 3162527460, -41545303904, 276166431961, 1385435722185, -73547738586656, 1207721984518180, -9917136571683789, -60806773846655969

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Sequence in context: A132811 A042179 A042427 * A215754 A226486 A060648

Adjacent sequences: A009775 A009776 A009777 * A009779 A009780 A009781

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Nov 26 2015

Status

approved