|
%I #6 Mar 24 2013 11:59:51
%S 1,-3,-27,777,48905,-4320107,-424303635,77237001761,20512289602833,
%T -6321209675239123,-1704909797900721931,812189572458422888249,
%U 493715837509806144441881,-331434668084376519747747387
%N arctanh(cos(x)*arctan(x))=x-3/3!*x^3-27/5!*x^5+777/7!*x^7+48905/9!*x^9...
%t With[{nn=30},Take[CoefficientList[Series[ArcTanh[Cos[x]ArcTan[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Mar 24 2013 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Mar 24 2013
|
