|
|
A359292
|
|
a(n) = least prime > binomial(2n, n).
|
|
2
|
|
|
2, 3, 7, 23, 71, 257, 929, 3433, 12889, 48623, 184777, 705437, 2704157, 10400603, 40116607, 155117551, 601080433, 2333606281, 9075135317, 35345263801, 137846528921, 538257874499, 2104098963721, 8233430727611, 32247603683111, 126410606437757, 495918532948117
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
z = 70;
t = Table[Binomial[2 n, n], {n, 1, z}];
NextPrime[t]
|
|
PROG
|
(PARI) a(n) = nextprime(binomial(2*n, n)+1); \\ Michel Marcus, Dec 24 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|