login
A009631
Expansion of sinh(x)/cos(tan(x)).
0
1, 4, 76, 3256, 235408, 25823744, 4007103296, 836059707008, 225808591264000, 76659294873275392, 31954924327960714240, 16046151385106990553088, 9553929740491469212061696, 6655283798759275562178347008
OFFSET
0,2
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
KEYWORD
nonn
AUTHOR
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