A173975 Numbers k such that k^k + 115 is prime.
6, 8, 18, 36, 38, 176
Offset: 1
Programs
-
Mathematica
f[n_]:=PrimeQ[n^n+115];lst={};Do[If[f[n],AppendTo[lst,n]],{n,6!}];lst
-
PARI
is(n)=ispseudoprime(n^n+115) \\ Charles R Greathouse IV, Jun 13 2017
Comments