PROG
(MAGMAMagma) [Numerator((&+[(-1/4)^k*Binomial(2*k, k)/(k+1): k in [0..n]])): n in [0..30]]; // G. C. Greubel, Mar 27 2018
(MAGMAMagma) [Numerator((&+[(-1/4)^k*Binomial(2*k, k)/(k+1): k in [0..n]])): n in [0..30]]; // G. C. Greubel, Mar 27 2018
editing
approved
W. Lang, <a href="/LANGCHANGE/A120788/a120788.texttxt">Rationals r(n) and limit.</a>
approved
editing
W. Lang, <a href="http://www.itp.kit.edu/~wl/EISpubLANGCHANGE
proposed
approved
editing
proposed
(GAP) List(List([0..25], n->Sum([0..n], k->(-1/4)^k*Binomial(2*k, k)/(k+1))), NumeratorRat); # Muniru A Asiru, Mar 30 2018
proposed
editing
editing
proposed
List(List([0..25], n->Sum([0..n], k->(-1/4)^k*Binomial(2*k, k)/(k+1))), NumeratorRat); # Muniru A Asiru, Mar 30 2018
proposed
editing
editing
proposed