OFFSET
1,1
COMMENTS
Conjecture: the factorization of a(n) contains all primes 5 < p < 2*(n+1)^2.
MATHEMATICA
a388[i_] := Numerator[2^(1 - 2 i^2) i Binomial[2 i^2, i^2]]; a389[i_] := Denominator[2^(1 - 2 i^2) i Binomial[2 i^2, i^2]]; Denominator[Table[Sum[(a388[i]/a389[i])/((a388[i + 1]/a389[i + 1])), {i, 1, n}], {n, 1, 10}]]
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ralf Steiner, May 04 2017
STATUS
approved