A125240 Numbers k such that binomial(4k, k) - 1 is prime.
1, 16, 36, 67, 95, 369, 383, 745, 1599, 2006, 2104, 2879, 3061, 9048, 9902, 12369, 15058, 18858, 21287, 22759, 24674, 33899, 43730, 55078, 86085
Offset: 1
Crossrefs
Programs
-
Mathematica
Do[f=Binomial[4n, n]-1; If[PrimeQ[f], Print[n]], {n, 1, 1000}]
Extensions
More terms from Ryan Propper, Mar 28 2007
a(16)-a(23) from Robert Price, Apr 30 2019
a(24)-a(25) from Robert Price, Sep 15 2024
Comments