login
A009239
Expansion of e.g.f.: exp(tan(sinh(x))).
3
1, 1, 1, 4, 13, 68, 373, 2528, 19097, 160400, 1522409, 15384128, 174263717, 2066458176, 27072485469, 369136141824, 5477315064625, 84457146691840, 1398343023229393, 24053254928131072, 439386703590146365
OFFSET
0,4
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Exp[Tan[Sinh[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 04 2018 *)
CROSSREFS
Sequence in context: A309900 A096805 A009221 * A042277 A125617 A197969
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended and signs tested Mar 15 1997 by Olivier Gérard.
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jun 04 2018
STATUS
approved