%I #6 Oct 07 2012 18:20:48
%S 1,1,1,2,5,20,85,16,-887,14096,145865,-887456,-14963507,126998976,
%T 2554796829,-21834514688,-556819358703,5067177011456,157094249035537,
%U -1485621376751104,-55286734778859115
%N exp(cosh(x)*arctan(x))=1+x+1/2!*x^2+2/3!*x^3+5/4!*x^4+20/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Exp[Cosh[x]ArcTan[x]],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Oct 07 2012 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)