%I #13 Jan 31 2018 03:20:43

%S 0,1,2,6,16,72,288,1848,9920,81088,541184,5318016,42274816,483162240,

%T 4449451776,57865303296,605255720960,8815813734400,103187353223168,

%U 1662921003208704,21528004660707328,380141599264751616,5391886872902762496,103492751953073897472

%N Expansion of e.g.f. sinh(tan(x))*exp(x).

%H G. C. Greubel, <a href="/A009605/b009605.txt">Table of n, a(n) for n = 0..450</a>

%t With[{nn = 50}, CoefficientList[Series[Sinh[Tan[x]]*Exp[x], {x, 0, nn}], x]*Range[0, nn]!] (* _G. C. Greubel_, Jan 30 2018 *)

%o (PARI) x='x+O('x^30); concat([0], Vec(serlaplace(sinh(tan(x))*exp(x)))) \\ _G. C. Greubel_, Jan 30 2018

%K nonn,easy

%O 0,3

%A _R. H. Hardin_

%E Extended and signs tested by _Olivier Gérard_, Mar 15 1997