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

%I #18 Jan 02 2018 17:11:48

%S 0,1,2,3,4,-3,-42,-273,-1336,-5159,-16726,62139,1194700,16414101,

%T 153304830,1357293927,10698400400,59192332081,188012481362,

%U -5204089208589,-107922523124588,-1943937262679379,-26275693823306202

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

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

%K sign,easy

%O 0,3

%A _R. H. Hardin_

%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997

%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Jan 02 2018