%I #6 Nov 29 2016 08:33:06
%S 2,-20,1128,-158112,41334912,-17364051712,10697958401024,
%T -9087507664709632,10179531541621604352,-14538540850131730563072,
%U 25785525466844174964228096,-55601885971190702384095952896
%N arctan(tanh(x)+arctan(x))=2*x-20/3!*x^3+1128/5!*x^5-158112/7!*x^7...
%t With[{nn=30},Take[CoefficientList[Series[ArcTan[Tanh[x]+ArcTan[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Ray Chandler_, Nov 29 2016 *)
%K sign
%O 0,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|