OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..250
MAPLE
seq( add(binomial(2*k, k), k=1..ithprime(n)), n=1..15); # G. C. Greubel, Jan 09 2020
MATHEMATICA
Table[Sum[Binomial[2k, k], {k, Prime[n]}], {n, 15}] (* Harvey P. Dale, Dec 31 2012 *)
PROG
(PARI) vector(15, n, sum(k=1, prime(n), binomial(2*k, k)) ) \\ G. C. Greubel, Jan 09 2020
(Magma) [ &+[Binomial(2*k, k): k in [1..NthPrime(n)]]: n in [1..15]]; // G. C. Greubel, Jan 09 2020
(Sage) [sum(binomial(2*k, k) for k in (1..nth_prime(n))) for n in (1..15)] # G. C. Greubel, Jan 09 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 25 2009
STATUS
approved