|
%I #12 Sep 26 2016 11:38:18
%S 0,1,2,3,20,157,902,6895,77352,837145,9239882,124480059,1864519868,
%T 28461793141,470175087566,8596601614567,165789417707088,
%U 3347308657310641,72262366126097810,1655981959056540147,39676337445225379172,996780437366905850317
%N Expansion of e.g.f.: tan(tanh(x)*exp(x)).
%t With[{nn=20},CoefficientList[Series[Tan[Tanh[x]*Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Sep 17 2016 *)
%K nonn,easy
%O 0,3
%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_, Sep 17 2016
|
