A012934 Expansion of e.g.f.: sec(tan(x)+log(x+1))=1+4/2!*x^2-6/3!*x^3+115/4!*x^4-500/5!*x^5...

1, 0, 4, -6, 115, -500, 8734, -70602, 1289945, -15743304, 315266344, -5159155430, 115185531211, -2350119405036, 58713986375802, -1425578090696970, 39746678648110001, -1113352395040853712

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sec[Tan[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 07 2013 *)

Crossrefs

Sequence in context: A012909 A219507 A367878 * A013165 A337466 A052672

Adjacent sequences: A012931 A012932 A012933 * A012935 A012936 A012937

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Dec 07 2013

Status

approved