login
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
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
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
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