OFFSET
1,3
MATHEMATICA
Do[f=Binomial[4n, n]+1; If[PrimeQ[f], Print[n]], {n, 1, 1000}]
Select[Range[8100], PrimeQ[Binomial[4#, #]+1]&] (* Harvey P. Dale, Aug 24 2014 *)
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, Nov 25 2006
EXTENSIONS
More terms from Ryan Propper, Mar 28 2007
a(1)=0 added by Robert Price, May 01 2019
a(27)-a(34) from Robert Price, May 01 2019
STATUS
approved