%I #6 Sep 06 2015 16:30:48
%S 1,1,-15,57,13825,-869711,-32509455,15341387817,-1155396011135,
%T -466737414209183,173446757621320305,4992444359346419481,
%U -27407671098104949154175,8541081671506270503758353
%N sec(tanh(x)*cos(x))=1+1/2!*x^2-15/4!*x^4+57/6!*x^6+13825/8!*x^8...
%t With[{nn=30},Take[CoefficientList[Series[Sec[Tanh[x]Cos[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Sep 06 2015 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|