%I #8 Dec 07 2013 05:09:02
%S 0,1,2,3,-12,-147,-890,63,76776,1130489,6587338,-92728933,-3395342500,
%T -47724446811,-11416580786,18058083754519,494993369091536,
%U 5229048665015409,-122759838344591214,-7368934381520578637
%N E.g.f.: arctan(arctanh(x)*exp(x))=x+2/2!*x^2+3/3!*x^3-12/4!*x^4-147/5!*x^5...
%t With[{nn=20},CoefficientList[Series[ArcTan[ArcTanh[x]Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 06 2013 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified and initial term provided by _Harvey P. Dale_, Dec 06 2013