A009255 Expansion of exp(tan(x)/exp(x)).

1, 1, -1, 0, 9, -28, 65, 294, -2751, 21496, -69343, 143154, 4340193, -44055100, 549236753, -3053333154, 25428876417, 103583035888, -1719503726527, 62167764668394, -580794950152287, 11376539928963260, -67379231311376719

Offset: 0

Author

R. H. Hardin

Keywords

• sign
• easy

Programs

Mathematica

With[{nn=30},CoefficientList[Series[Exp[Tan[x]/Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, May 05 2019 *)

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, May 05 2019