%I #12 Jun 04 2018 18:41:19
%S 1,1,1,4,13,68,373,2528,19097,160400,1522409,15384128,174263717,
%T 2066458176,27072485469,369136141824,5477315064625,84457146691840,
%U 1398343023229393,24053254928131072,439386703590146365
%N Expansion of e.g.f.: exp(tan(sinh(x))).
%t With[{nn=20},CoefficientList[Series[Exp[Tan[Sinh[x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 04 2018 *)
%K nonn,easy
%O 0,4
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier GĂ©rard_.
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Jun 04 2018