|
%I #8 Nov 04 2013 05:30:47
%S 1,1,3,45,105,1575,10395,315315,45045,6891885,72747675,160044885,
%T 1003917915,21751554825,35137127025,2183521465125,4512611027925,
%U 76714387474725,40613499251325,3172365552631275
%N Denominators of coefficients of expansion of arctan(x)^2 = x^2-2/3*x^4+23/45*x^6-44/105*x^8+563/1575*x^10-3254/10395*x^12+ ...
%t a[n_] := (-1)^(n+1)*Sum[1/(n*(2*k-1)), {k, 1, n}] // Denominator; Table[a[n], {n, 0, 19}] (* _Jean-François Alcover_, Nov 04 2013 *)
%Y Cf. A002428.
%K nonn,easy,frac
%O 0,3
%A _N. J. A. Sloane_, Jun 17 2002
|
