A301635 Numbers k such that 5^k + 5*k + 1 is prime.
0, 1, 11, 25, 35, 85, 499, 1403, 3511, 3739, 8005
Offset: 1
Programs
-
Mathematica
Flatten[{0, Select[Range[1000], PrimeQ[5^# + 5*# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *) -
PARI
for(n=0, 500, if(isprime(5^n+5*n+1), print1(n", ")))
Extensions
a(8)-a(11) from Vaclav Kotesovec, Mar 25 2018
Comments