A009543 Expansion of e.g.f.: sin(x)*exp(tan(x)).

0, 1, 2, 2, 8, 36, 168, 944, 5760, 41104, 310304, 2650592, 23894144, 237023424, 2481859968, 28021573376, 333725331456, 4225816615168, 56329065984512, 790713657219584, 11650274400684032, 179579770991391744

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..300

Mathematica

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

Crossrefs

Sequence in context: A057132 A121197 A219348 * A102647 A318869 A060224

Adjacent sequences: A009540 A009541 A009542 * A009544 A009545 A009546

Keyword

nonn,easy

Author

R. H. Hardin

Extensions

Extended and signs tested Mar 15 1997 by Olivier Gérard.

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jul 09 2014

Status

approved