A009285 Expansion of e.g.f. exp(x + tanh(x)).

1, 2, 4, 6, 0, -32, -24, 640, 2176, -16832, -138496, 521216, 10367616, -8750336, -942458368, -2101041920, 102567493632, 621205094400, -12985904205824, -148249466093568, 1832574587011072, 36650477053591552, -266274589196877824, -9888178289857134592, 31088700594998902784

Offset

0,2

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[x+Tanh[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Aug 09 2020 *)

Prog

(PARI) my(x='x+O('x^30)); Vec(serlaplace(exp(x + tanh(x)))) /* Joerg Arndt, Sep 01 2012 */

Crossrefs

Sequence in context: A121206 A062004 A300268 * A013082 A352639 A197388

Adjacent sequences: A009282 A009283 A009284 * A009286 A009287 A009288

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Name corrected by Arkadiusz Wesolowski, Sep 01 2012

Status

approved