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

0, 1, 2, 4, 8, 12, 8, -296, -2304, -25200, -183776, -1885952, -15141248, -163728576, -1461427328, -16916558720, -166452797440, -2050105730816, -21941424508416, -282656394482688, -3231615038191616, -42100913802486784

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A051165 A377672 A009664 * A064657 A182837 A256940

Adjacent sequences: A009504 A009505 A009506 * A009508 A009509 A009510

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved