A104007 Denominators of coefficients in expansion of x^2*(1-exp(-2*x))^(-2).
4, 2, 12, 6, 60, 90, 378, 945, 2700, 9450, 20790, 93555, 116093250, 638512875, 1403325, 18243225, 43418875500, 325641566250, 4585799468250, 38979295480125, 161192575293750, 1531329465290625, 640374140030625, 13447856940643125, 17558223649022306250
Offset: 0
Programs
-
Mathematica
Denominator[ CoefficientList[ Series[x^2*(1 - E^(-2x))^(-2), {x, 0, 33}], x]] (* Robert G. Wilson v, Apr 20 2005 *) Denominator[ Function[{n}, Piecewise[{{1/2 (-1 + n) Zeta[n], Mod[n, 2] == 0}, {Zeta[-1 + n], Mod[n, 2] == 1}}]] /@ Range[0, 20]] (* Andrey Mitin, Aug 16 2020 *)
Comments