A166852 Numbers k such that k^k + 3 is prime.
2, 1036, 2770
Offset: 1
Programs
-
Mathematica
Do[If[GCD[n,3]==1&&PrimeQ[n^n+3],Print[n]],{n,2,5362,2}]
-
PARI
is(n)=ispseudoprime(n^n+3) \\ Charles R Greathouse IV, Jun 13 2017
Comments