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

0, 1, 2, 3, 4, -3, -42, -217, -888, -2951, -8086, -5973, 115468, 1237173, 8863806, 52635599, 275344656, 1126610929, 2488177106, -20058390573, -369676840940, -3920482183827, -34139482063962, -256734635981833, -1691837365047912

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A009184 A009716 A009590 * A009810 A324156 A111362

Adjacent sequences: A009489 A009490 A009491 * A009493 A009494 A009495

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jan 14 2015

Status

approved