A009664 Expansion of tan(sin(x))*exp(x).

0, 1, 2, 4, 8, 12, 8, -128, -960, -5232, -24416, -54848, 174976, 5325504, 55072384, 403442176, 2417174528, 558723328, -157596298752, -2994514283520, -36515570849792, -295655443772416, -1639992400689152, 17110494845845504

Offset

0,3

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Tan[Sin[x]]*Exp[x], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Apr 09 2021 *)

Crossrefs

Sequence in context: A337181 A357806 A051165 * A009507 A064657 A182837

Adjacent sequences: A009661 A009662 A009663 * A009665 A009666 A009667

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, Apr 09 2021

Status

approved