OFFSET
0,5
EXAMPLE
-1/2*x-1/8*x^2-1/8*x^3+3/320*x^4-19/288*x^5+59/1920*x^6-751/17280*x^7+...
MATHEMATICA
Numerator[CoefficientList[Series[Log[Cot[x]Log[x+1]], {x, 0, 30}], x]] (* Harvey P. Dale, Nov 04 2012 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Corrected by N. J. A. Sloane, Dec 21 2011
STATUS
approved