|
%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
|
