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,5

Links

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

Mathematica

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

Crossrefs

Sequence in context: A041359 A034126 A034677 * A062451 A065959 A226333

Adjacent sequences: A009252 A009253 A009254 * A009256 A009257 A009258

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

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

Status

approved