%I #9 Aug 06 2019 11:19:43
%S 2,8,14,26,84,574
%N Numbers k such that k^k+43 is prime.
%C a(7) > 3000. - _Daniel Starodubtsev_, Aug 06 2019
%e 2^2 + 43 = 47, which is prime, so 2 is in the sequence.
%t f[n_]:=PrimeQ[n^n+43];lst={};Do[If[f[n],AppendTo[lst,n]],{n,6!}];lst
%o (PARI) is(n)=ispseudoprime(n^n+43) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A100837, A100838, A100839.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 03 2010