|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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: A309817 A340305 A194284 * A135710 A070996 A015237
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
|
| |
|
|
