OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..358
Stéphane Fischler, Irrationalité de valeurs de zêta. Séminaire Bourbaki (2002-2003) Vol. 45, pp. 27-62 [in French]
Eric Weisstein's MathWorld, Apéry's Constant
Wikipedia, Apéry's constant
FORMULA
See Mathematica script.
EXAMPLE
0, 6/5, 351/292, 62531/52020, 11424695/9504288, 35441662103/29484180000, ...
0, 1.2, 1.202..., 1.2020569..., 1.202056903..., 1.20205690316..., ...
MATHEMATICA
p[n_] := Sum[Binomial[n+k, k]^2*Binomial[n, k]^2*(Sum[1/m^3, {m, 1, n}] + Sum[ (-1)^(m-1)/(2*m^3*Binomial[n, m]*Binomial[m+n, m]), {m, 1, k}]), {k, 0, n}]; q[n_] := Sum[Binomial[n+k, k]^2*Binomial[n, k]^2, {k, 0, n}]; Table[p[n]/q[n], {n, 0, 12}] // Denominator
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Jean-François Alcover, Apr 15 2015
STATUS
approved