%I #6 May 15 2013 05:32:37
%S 1,0,1,6,33,180,1185,8890,79233,769608,8392065,97609358,1249180449,
%T 16946392892,249854555041,3881392411650,64853211006977,
%U 1135530767344144,21209811847666689,413312033834754966
%N cosh(arctanh(x)*exp(x))=1+1/2!*x^2+6/3!*x^3+33/4!*x^4+180/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Cosh[ArcTanh[x]Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 15 2013 *)
%K nonn
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|