A009528 Expansion of e.g.f.: sin(tanh(x)*exp(x)).

0, 1, 2, 0, -16, -68, -88, 784, 4608, -9008, -161248, 625152, 14608640, -8998208, -1347816832, -2920147712, 139368775680, 708078508288, -17610019700224, -166304331522048, 2430929524011008, 40722499309345792

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A012409 A012661 A345652 * A178987 A242569 A152154

Adjacent sequences: A009525 A009526 A009527 * A009529 A009530 A009531

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Dec 16 2019

Status

approved