A100407 Numbers k such that k^k+2 is prime.
1, 3, 737, 1349
Offset: 1
Examples
737 is in the sequence because 737^737+2 is prime.
Crossrefs
Cf. A100408.
Programs
-
Mathematica
Do[If[PrimeQ[n^n+2], Print[n]], {n, 3500}]
-
PARI
is(n)=ispseudoprime(n^n+2) \\ Charles R Greathouse IV, May 22 2017
Comments