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

Author

R. H. Hardin

Keywords

• sign
• easy

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

Programs

Mathematica

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

PARI

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

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, May 21 2019