A216619 Numbers k such that 10^k + k^10 - 1 is prime.
2, 8, 1592, 2380
Offset: 1
Programs
-
Mathematica
Select[Range[0, 5000], PrimeQ[10^# + #^10 - 1] &]
-
PARI
is(n)=ispseudoprime(10^n+n^10-1) \\ Charles R Greathouse IV, Jun 13 2017
Comments