A013500 Expansion of e.g.f.: log(sec(x)-log(x+1))=-1*x+1/2*x^2+1/3*x^3+3/8*x^4+7/120*x^5-1/240*x^6-593/5040*x^7-37/960*x^8+...

0, -1, 1, 2, 9, 7, -3, -593, -1554, -11125, 167725, 778307, 16757708, -89177255, -119165473, -33154669351, 100077477488, -2532930861593, 104388972197833, -390031832553017, 23726173002432588, -516211740521004739, 4636274532540279299, -240069627985237851811, 4178391586103026282384, -78940184342962927515381

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Log[Sec[x]-Log[x+1]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Oct 16 2014 *)

Crossrefs

Sequence in context: A308320 A254140 A200991 * A244596 A309928 A176977

Adjacent sequences: A013497 A013498 A013499 * A013501 A013502 A013503

Keyword

sign

Author

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

Extensions

There was a missing initial term and the signs were wrong. Corrected by N. J. A. Sloane, Dec 17 2011.

Definition clarified by Harvey P. Dale, Oct 16 2014

Status

approved