

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^51/240*x^6593/5040*x^737/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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



