OFFSET
1,1
COMMENTS
a(24) > 10^5. Robert Price, Nov 16 2024
MATHEMATICA
Do[f=Binomial[5n, n]-1; If[PrimeQ[f], Print[n]], {n, 1, 1000}]
Select[Range[45000], PrimeQ[Binomial[5#, #]-1]&] (* Harvey P. Dale, Jan 02 2022 *)
CROSSREFS
KEYWORD
hard,more,nonn,changed
AUTHOR
Alexander Adamchuk, Nov 25 2006
EXTENSIONS
More terms from Ryan Propper, Jan 06 2007
a(15)-a(20) from Robert Price, May 03 2019
a(21)-a(23) from Robert Price, Nov 16 2024
STATUS
approved