login
Expansion of e.g.f.: tan(x)*exp(sinh(x)).
0

%I #11 Dec 30 2018 14:50:51

%S 0,1,2,5,16,61,248,1217,6336,38137,242464,1753245,13219328,112141173,

%T 982066816,9583252569,95757641728,1057866255601,11884764271104,

%U 146689651631285,1830773338714112,24972471277262509

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

%t With[{nn=30},CoefficientList[Series[Tan[x]*Exp[Sinh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 30 2018 *)

%K nonn,easy

%O 0,3

%A _R. H. Hardin_

%E Extended and signs tested Mar 15 1997 by _Olivier GĂ©rard_.

%E Previous Mathematica program replaced and definition clarified by _Harvey P. Dale_, Dec 30 2018