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,3

Links

Table of n, a(n) for n=0..14.

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

Crossrefs

Sequence in context: A203469 A296590 A203478 * A335710 A341499 A203415

Adjacent sequences: A012005 A012006 A012007 * A012009 A012010 A012011

Keyword

nonn

Author

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

Status

approved