%I #7 Jan 02 2015 16:55:18
%S 1,0,3,30,1113,50460,3693723,359740290,46791574833,7721990402520,
%T 1584990509251443,395230316479830150,117766463267804780553,
%U 41313542582787780576180,16856003114804522914769163
%N sec(log(cos(x)))= 1+3/4!*x^4+30/6!*x^6+1113/8!*x^8+50460/10!*x^10...
%t With[{nn=30},Take[CoefficientList[Series[Sec[Log[Cos[x]]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jan 02 2015 *)
%K nonn
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)