login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A009785
Expansion of tanh(log(1+x)*exp(x)).
0
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
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
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Sep 14 2018
STATUS
approved