OFFSET
0,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..39
EXAMPLE
a(1) = 2 because the primes 3 and 5 lie in the interval (2,6].
MAPLE
a:=proc(n) local ct, j: ct:=0: for j from binomial(2*n, n)+1 to binomial(2*n+2, n+1) do if isprime(j)=true then ct:=ct+1 else fi: ct: od: end: seq(a(n), n=0..13); # execution takes hours; Emeric Deutsch, Apr 16 2006
MATHEMATICA
Do[Print[PrimePi[Binomial[2*n + 2, n + 1]] - PrimePi[Binomial[2*n, n]]], {n, 0, 25}] (* Ryan Propper, May 06 2006 *)
PROG
(PARI) { for(n=0, 30, istrt=binomial(2*n, n) ; iend=binomial(2*n+2, n+1) ; resul=0 ; forprime(p=istrt+1, iend, resul++ ; ) ; print1(resul, ", ") ; ) ; } \\ R. J. Mathar, Apr 21 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Greg Huber, Apr 14 2006
EXTENSIONS
More terms from Emeric Deutsch and R. J. Mathar, Apr 16 2006
More terms from Ryan Propper, May 06 2006
a(25)-a(27) from Amiram Eldar, Jun 14 2024
STATUS
approved