login
A359293
a(n) = greatest prime < binomial(2n, n).
3
5, 19, 67, 251, 919, 3413, 12853, 48619, 184753, 705427, 2704129, 10400597, 40116563, 155117519, 601080379, 2333606183, 9075135253, 35345263781, 137846528747, 538257874423, 2104098963611, 8233430727527, 32247603683039, 126410606437691, 495918532948049
OFFSET
2,1
LINKS
MAPLE
f:= n -> prevprime(binomial(2*n, n)):
map(f, [$2..30]); # Robert Israel, Jan 18 2023
MATHEMATICA
z = 70;
t = Table[Binomial[2 n, n], {n, 1, z}];
Rest[NextPrime[t, -1]]
PROG
(PARI) a(n) = precprime(binomial(2*n, n)-1); \\ Michel Marcus, Dec 24 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 24 2022
STATUS
approved