login
A009630
Expansion of sinh(x)/cos(sin(x)).
0
1, 4, 16, -104, -5504, -69376, 5144192, 431779328, 3270959104, -2994808352768, -327470564016128, 13424788329791488, 9902586724481662976, 1141033124277100085248, -243917918992354704359424
OFFSET
0,2
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Sinh[x]/Cos[Sin[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Feb 02 2022 *)
CROSSREFS
Sequence in context: A330537 A136793 A274889 * A318695 A131043 A071554
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Feb 02 2022
STATUS
approved