A125244 Numbers k such that binomial(6k, k) - 1 is prime.
1, 7, 17, 22, 43, 343, 381, 461, 543, 923, 1045, 1182, 1486, 1839, 5643, 8260, 9009, 10947, 11793, 15915, 25151, 50923, 57095, 59977, 76513, 83383
Offset: 1
Crossrefs
Programs
-
Mathematica
Do[f=Binomial[6n, n]-1; If[PrimeQ[f], Print[n]], {n, 1, 1000}]
Extensions
More terms from Ryan Propper, Mar 28 2007
a(18)-a(21) from Robert Price, May 13 2019
a(22)-a(23) from Georg Grasegger, May 08 2025
a(24)-a(26) from Robert Price, May 09 2025
Comments