A009216 E.g.f.: exp(sin(x)/exp(x)).

1, 1, -1, -3, 9, 17, -145, 21, 2961, -9119, -58273, 530541, 177177, -24815503, 109736783, 845196933, -11562650847, 9274089409, 818943535295, -6145817165859, -30817061557719, 818240768280017, -3016149953173201, -67401109608160779

Offset: 0

Author

R. H. Hardin

Keywords

• sign
• easy

Programs

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Sin[x]/Exp[x]],{x,0,nn}],x] Range[ 0,nn]!] (* Harvey P. Dale, Feb 21 2013 *)

Extensions

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

Definition clarified by Harvey P. Dale, Feb 21 2013