|
|
A085793
|
|
Numbers n such that (n-1)*binomial(2n,n) + 1 is prime.
|
|
2
|
|
|
2, 3, 4, 5, 6, 7, 9, 13, 17, 18, 22, 23, 28, 31, 48, 49, 52, 80, 99, 167, 201, 295, 372, 381, 391, 638, 653, 720, 779, 887, 1047, 1454, 1647, 1719, 2405, 3234, 3257, 3542, 3623, 3765, 3796, 4337, 4490, 5228, 6507, 8544, 9990, 10000, 12478, 13479, 15487, 17115
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
9999 * 20000!/(10000!)^2 + 1 is prime
|
|
MATHEMATICA
|
Do[If[PrimeQ[(a - 1)Binomial[2 a, a] + 1], a >>> "C:\prime.txt"], {a, 1, 30000}]
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|