A215445 Numbers k such that 7^k + k^7 - 1 is prime.
1, 11, 65, 133, 679, 1571, 27517, 51631
Offset: 1
Programs
-
Mathematica
Select[Range[0, 5000], PrimeQ[7^# + #^7 - 1] &]
-
PARI
is(n)=ispseudoprime(7^n+n^7-1) \\ Charles R Greathouse IV, Jun 06 2017
Extensions
a(7)-a(8) from Robert Price, Feb 23 2014
Comments