%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