A009239 Expansion of e.g.f.: exp(tan(sinh(x))).

1, 1, 1, 4, 13, 68, 373, 2528, 19097, 160400, 1522409, 15384128, 174263717, 2066458176, 27072485469, 369136141824, 5477315064625, 84457146691840, 1398343023229393, 24053254928131072, 439386703590146365

Offset: 0

Author

R. H. Hardin

Keywords

• nonn
• easy

Programs

Mathematica

With[{nn=20},CoefficientList[Series[Exp[Tan[Sinh[x]]],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Jun 04 2018 *)

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