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

0, 1, 2, 0, -8, 12, 168, -280, -5760, 11536, 310304, -703296, -23894144, 59653440, 2481859968, -6715007104, -333725331456, 967972497664, 56329065984512, -173764741920768, -11650274400684032, 37986612815698944

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, Apr 13 2018 *)

Crossrefs

Sequence in context: A334875 A328476 A085814 * A009794 A171402 A104506

Adjacent sequences: A009521 A009522 A009523 * A009525 A009526 A009527

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Apr 13 2018

Status

approved