|
%I #9 Feb 18 2019 06:19:10
%S 1,3,15,2835,5670,155925,182432250,1915538625,390769879500,
%T 1754068296605625,29234471610093750,2218896395206115625,
%U 399401351137100812500,9086380738369043484375,5791319591487961781250,28304394023345413370350078125,3396527282801449604442009375000,21652861427859241228317809765625
%N Denominators of coefficients in Taylor series expansion of log(cotan(x)*arctan(x)).
%e -2/3*x^2+1/15*x^4-313/2835*x^6+317/5670*x^8-7813/155925*x^10+...
%t Join[{1},Denominator[Take[CoefficientList[Series[Log[Cot[x]ArcTan[x]],{x,0,40}],x],{3,-1,2}]]] (* _Harvey P. Dale_, Nov 25 2012 *)
%Y Cf. A012867.
%K nonn,frac
%O 0,2
%A _N. J. A. Sloane_, Dec 21 2011
|
