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

1, 0, 3, 30, 1113, 50460, 3693723, 359740290, 46791574833, 7721990402520, 1584990509251443, 395230316479830150, 117766463267804780553, 41313542582787780576180, 16856003114804522914769163

Offset: 0

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Keywords

• nonn

Programs

Mathematica

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