[go: up one dir, main page]

login
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
OFFSET
0,1
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
Clark Kimberling, Dec 24 2022
STATUS
approved