|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
MAPLE
|
f:= n -> prevprime(binomial(2*n, n)):
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|