%I #11 Aug 06 2019 11:20:10
%S 6,8,18,36,38,176
%N Numbers k such that k^k + 115 is prime.
%C a(7) > 3000. - _Daniel Starodubtsev_, Aug 05 2019
%t f[n_]:=PrimeQ[n^n+115];lst={};Do[If[f[n],AppendTo[lst,n]],{n,6!}];lst
%o (PARI) is(n)=ispseudoprime(n^n+115) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A100837, A100838, A100839, A173974.
%K nonn,hard,more
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 03 2010
|