A216618 Numbers k such that 10^k + k^10 + 1 is prime.
0, 726, 1974, 3336
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