A173974 Numbers k such that k^k+43 is prime.
2, 8, 14, 26, 84, 574
Offset: 1
Keywords
Examples
2^2 + 43 = 47, which is prime, so 2 is in the sequence.
Programs
-
Mathematica
f[n_]:=PrimeQ[n^n+43];lst={};Do[If[f[n],AppendTo[lst,n]],{n,6!}];lst
-
PARI
is(n)=ispseudoprime(n^n+43) \\ Charles R Greathouse IV, Jun 13 2017
Comments