A217133 Numbers n such that 5^n + 8 is prime.
1, 95, 335, 3155, 28651, 91135
Offset: 1
Programs
-
Mathematica
Select[Range[1, 15000, 2], PrimeQ[5^# + 8] &]
-
PARI
for(n=1, 5*10^3, if(isprime(5^n+8), print1(n", ")))
Extensions
a(5)-a(6) from Robert Price, Feb 03 2014
Comments