%I #6 Aug 26 2016 13:20:26
%S 1,4,80,4384,436992,70425984,16592126976,5395435991040,
%T 2312302178205696,1263775007737085952,857643638399523454976,
%U 707659940568946007474176,697634806106676807565574144
%N sec(arctan(x)+tan(x))=1+4/2!*x^2+80/4!*x^4+4384/6!*x^6+436992/8!*x^8...
%t With[{nn=30},Take[CoefficientList[Series[Sec[ArcTan[x]+Tan[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 26 2016 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|