|
%I #6 Nov 29 2016 11:04:41
%S 1,0,0,160,0,691200,19712000,14125363200,1476034560000,
%T 949310881792000,219556882022400000,161772486589808640000,
%U 65109683806263050240000,58457850571785240576000000
%N sec(arctan(x)-arctanh(x))=1+160/6!*x^6+691200/10!*x^10+19712000/12!*x^12...
%t With[{nn=30},Take[CoefficientList[Series[Sec[ArcTan[x]-ArcTanh[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Ray Chandler_, Nov 29 2016 *)
%K nonn
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
