|
|
A130546
|
|
Denominators of 2*Sum_{k=1..n} 1/binomial(2*k,k), n >= 1.
|
|
1
|
|
|
1, 3, 30, 210, 315, 6930, 16380, 60060, 1021020, 19399380, 461890, 37182145, 106234700, 75482550, 166363540200, 5157269746200, 1719089915400, 12033629407800, 445244288088600, 445244288088600, 588871477794600, 784965679900201800, 1177448519850302700, 55340080432964226900
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
For the rationals r(n) := 2*Sum_{k=1..n} 1/binomial(2*k,k), n >= 1, the Comtet reference and a W. Lang link see A130545.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = denominator(r(n)), n >= 1.
|
|
MATHEMATICA
|
Accumulate[Table[2 1/Binomial[2n, n], {n, 30}]]//Denominator (* Harvey P. Dale, Aug 12 2022 *)
|
|
PROG
|
(PARI) a(n) = denominator(2*sum(k=1, n, 1/binomial(2*k, k))); \\ Michel Marcus, Nov 09 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|