%I #7 Nov 21 2013 12:46:01
%S 1,1,1,-4,-19,0,445,1304,-14663,-109120,718265,10816896,-50970203,
%T -1441841024,4876389557,258762139648,-548752599567,-60872480247808,
%U 47436062951281,18224782774259712,12631837146241245
%N exp(cos(x)*arctan(x))=1+x+1/2!*x^2-4/3!*x^3-19/4!*x^4+445/6!*x^6...
%t With[{nn=25},CoefficientList[Series[Exp[Cos[x]ArcTan[x]],{x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Oct 01 2011 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|