A009542 Expansion of e.g.f. sin(x)*exp(sinh(x)).

0, 1, 2, 2, 4, 16, 38, 104, 456, 1600, 6154, 29952, 131660, 644736, 3516334, 18383616, 106736272, 645554176, 3902982930, 25645936640, 170222268308, 1160636121088, 8352824699446, 60217271582720, 450765801976408

Offset

0,3

Comments

First negative term is a(35). - Olivier Gérard, Mar 15 1997

Links

Andrew Howroyd, Table of n, a(n) for n = 0..200

Mathematica

With[{nn=30}, CoefficientList[Series[Sin[x]*Exp[Sinh[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, May 21 2019 *)

Prog

(PARI) my(x='x+O('x^40)); Vec(serlaplace(sin(x)*exp(sinh(x)))) \\ Michel Marcus, Apr 02 2017

Crossrefs

Sequence in context: A154003 A291338 A326481 * A244108 A032318 A090753

Adjacent sequences: A009539 A009540 A009541 * A009543 A009544 A009545

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, May 21 2019

Status

approved