

A009542


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


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



