login
A009778
Expansion of e.g.f.: tanh(log(1+x))*exp(x).
0
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
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
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, Nov 26 2015
STATUS
approved