%I #10 Mar 14 2017 17:26:36
%S 1,12,8512,34406592,471749623552,16325059994068992,
%T 1187794482738667098112,160833904474220565517811712,
%U 37152672501146694986367085576192,13716936936404675660073679524327063552,7693299929324832174022888419623013572411392,6292927164359183105695668653932580594051985702912
%N cosh(sec(x)-sech(x)) = 1+12/4!*x^4+8512/8!*x^8+34406592/12!*x^12...
%t With[{nn=60},Take[CoefficientList[Series[Cosh[Sec[x]-Sech[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,4}]] (* _Harvey P. Dale_, Mar 14 2017 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E More terms from _N. J. A. Sloane_, Dec 17 2011
|