|
%I #7 Aug 17 2016 12:50:30
%S 1,12,20048,255870912,12348478073088,1607757077354376192,
%T 462465118290965584465920,257450488580368515571587072000,
%U 252414780430562625969597955397713920
%N sec(arctanh(x)*arctan(x)) = 1+12/4!*x^4+20048/8!*x^8+255870912/12!*x^12...
%t With[{nn=40},Take[CoefficientList[Series[Sec[ArcTanh[x]ArcTan[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,4}]] (* _Harvey P. Dale_, Aug 17 2016 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Aug 17 2016
|
