|
%I #6 Nov 29 2016 11:03:30
%S 1,0,0,-160,0,-691200,3942400,-14125363200,295206912000,
%T -902471385088000,43911376404480000,-140627264197754880000,
%U 12856220870209699840000,-45500991975079280640000000
%N cos(arctan(x)-arctanh(x))=1-160/6!*x^6-691200/10!*x^10+3942400/12!*x^12...
%t With[{nn=30},Take[CoefficientList[Series[Cos[ArcTan[x]-ArcTanh[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Ray Chandler_, Nov 29 2016 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
