A009631 Expansion of sinh(x)/cos(tan(x)).

1, 4, 76, 3256, 235408, 25823744, 4007103296, 836059707008, 225808591264000, 76659294873275392, 31954924327960714240, 16046151385106990553088, 9553929740491469212061696, 6655283798759275562178347008

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sinh[x]/Cos[Tan[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Sep 04 2023 *)

Crossrefs

Sequence in context: A220958 A187542 A364111 * A012020 A012041 A024258

Adjacent sequences: A009628 A009629 A009630 * A009632 A009633 A009634

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested Mar 15 1997 by Olivier Gérard.

Prior Mathematica program replaced by Harvey P. Dale, Sep 04 2023

Status

approved