login
A009664
Expansion of tan(sin(x))*exp(x).
0
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
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
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Apr 09 2021
STATUS
approved