login
A009688
Expansion of tan(sinh(x)/cos(x)).
0
1, 6, 132, 6888, 631120, 88901472, 17815778112, 4813349520000, 1685527674636544, 742370072201602560, 401601528167832511488, 261760691714482869528576, 202316143535276408972627968
OFFSET
0,2
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[Sinh[x]/Cos[x]], {x, 0, nn}], x] Range[ 0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Mar 20 2023 *)
CROSSREFS
Sequence in context: A174250 A277305 A328889 * A132872 A152289 A015503
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended and signs tested Mar 15 1997 by Olivier Gérard.
Previous Mathematica program replaced by Harvey P. Dale, Mar 20 2023
STATUS
approved