login
A009669
Expansion of tan(sin(x))/cosh(x).
0
1, -2, 12, -296, 8208, -317088, 22384832, -1922265216, 200049877248, -28532108907008, 4916900759571456, -987493645187344384, 241526023834975735808, -69201642972421758361600
OFFSET
0,2
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[Sin[x]]/Cosh[x], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* _Harvey P. Dale_, Jun 08 2018 *)
CROSSREFS
Sequence in context: A008338 A000178 A108395 * A202729 A012380 A012377
KEYWORD
sign
AUTHOR
_R. H. Hardin_
EXTENSIONS
Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
Previous Mathematica program replaced by _Harvey P. Dale_, Jun 08 2018
STATUS
approved