A013313 - OEIS

%I #7 Jan 01 2015 14:03:13

%S 1,2,-1,-24,-115,242,9179,65296,-366535,-14288158,-124059241,

%T 1440362616,57563571845,541440703442,-11649746422861,-473630058916064,

%U -4395343414984975,168230486159471042

%N arctan(exp(x)-cos(x))=x+2/2!*x^2-1/3!*x^3-24/4!*x^4-115/5!*x^5...

%t With[{nn=20},Rest[CoefficientList[Series[ArcTan[Exp[x]-Cos[x]],{x,0,nn}],x] Range[0,nn]!]] (* _Harvey P. Dale_, Jan 01 2015 *)

%K sign

%O 1,2

%A Patrick Demichel (patrick.demichel(AT)hp.com)