A009630 Expansion of sinh(x)/cos(sin(x)).

1, 4, 16, -104, -5504, -69376, 5144192, 431779328, 3270959104, -2994808352768, -327470564016128, 13424788329791488, 9902586724481662976, 1141033124277100085248, -243917918992354704359424

Offset

0,2

Links

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

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

Adjacent sequences: A009627 A009628 A009629 * A009631 A009632 A009633

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, Feb 02 2022

Status

approved