OFFSET
1,1
REFERENCES
New Zealand Science Monthly, Bulletin Board, Feb. 1999. Binomial(300,150)+185 = nextprime.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..25
EXAMPLE
7 is a term because C(4,2)+1 = 6+1 = 7 is prime.
MATHEMATICA
a = Select[ Range[100], PrimeQ[Binomial[2#, # ] + 1] & ]; Binomial[2a, a] + 1
Select[Table[(2 n)! / (n!)^2 + 1, {n, 0, 80}], PrimeQ] (* Vincenzo Librandi, Mar 17 2015 *)
PROG
(PARI) v=[]; for(n=0, 100, x=bin(2*n, n)+1; if(isprime(x), v=concat(v, x), )); v
(Magma) [a: n in [0..100] | IsPrime(a) where a is Factorial(2*n) div Factorial(n)^2+1]; // Vincenzo Librandi Mar 17 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Donald S. McDonald, Oct 14 2002
EXTENSIONS
Edited by Robert G. Wilson v, Oct 15 2002
Definition corrected by Alexander Adamchuk, Nov 30 2007
Edited by N. J. A. Sloane, Nov 30 2007
a(13) from Vincenzo Librandi, Mar 17 2015
STATUS
approved