%I #6 Jan 22 2015 18:09:19
%S 1,-1,1,-145,6977,-568865,80708417,-14347965489,3496685652353,
%T -1086579978065473,419435785375158145,-197705949756543164369,
%U 111488102700546889037505,-74151248251988209281143905
%N sech(sec(x)*arctan(x))=1-1/2!*x^2+1/4!*x^4-145/6!*x^6+6977/8!*x^8...
%t With[{nn=30},Take[CoefficientList[Series[Sech[Sec[x] ArcTan[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jan 22 2015 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|