login
A009181
Expansion of cosh(x)/cos(sin(x)).
0
1, 2, 8, 8, -960, -22400, 251008, 53882624, 2088660992, -173107810304, -34807275798528, -1238452597522432, 561542864118906880, 119928087297015742464, -1488492672130035744768, -6684251211519983379283968, -1421114720526402152671739904
OFFSET
0,2
MATHEMATICA
With[{nn=40}, Take[CoefficientList[Series[Cosh[x]/Cos[Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, May 01 2015 *)
CROSSREFS
Sequence in context: A083523 A202619 A202379 * A009666 A012346 A012649
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
More terms from and prior Mathematica program replaced by Harvey P. Dale, May 01 2015
STATUS
approved