login
A009165
Expansion of cosh(tan(x)*sinh(x)).
0
1, 0, 12, 360, 14672, 947520, 89973312, 11518066560, 1887213285632, 383583690823680, 94596308487109632, 27811060234433710080, 9605125245736932134912, 3848453455438561596456960
OFFSET
0,3
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Cosh[Tan[x]*Sinh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 14 2020 *)
CROSSREFS
Sequence in context: A009079 A012379 A012424 * A012627 A012384 A012429
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended and signs tested Mar 15 1997 by Olivier Gérard.
Previous Mathematica program replaced by Harvey P. Dale, Aug 14 2020
STATUS
approved