OFFSET
0,2
EXAMPLE
-2/3*x^2+1/15*x^4-313/2835*x^6+317/5670*x^8-7813/155925*x^10+...
MATHEMATICA
Join[{1}, Denominator[Take[CoefficientList[Series[Log[Cot[x]ArcTan[x]], {x, 0, 40}], x], {3, -1, 2}]]] (* Harvey P. Dale, Nov 25 2012 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
N. J. A. Sloane, Dec 21 2011
STATUS
approved