login
sec(log(cos(x)))= 1+3/4!*x^4+30/6!*x^6+1113/8!*x^8+50460/10!*x^10...
2

%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)