A100839 Numbers k such that k^k + 10 is prime.
0, 1, 3, 7, 9, 39
Offset: 1
Crossrefs
Cf. A100842 (actual primes). - Daniel Starodubtsev, Aug 05 2019
Programs
-
Mathematica
Prepend[Select[Range[100], PrimeQ[#^# + 10] &], 0] (* Stefan Steinerberger, Mar 15 2006 *)
-
PARI
f1(n,a) = for(x=0,n,y=x^x+a;if(ispseudoprime(y),print1(y",")))
Comments