%I #19 Apr 06 2018 09:34:48
%S 0,1,2,3,7,25,7143,11583
%N Numbers k such that 4*k^k + 1 is prime.
%C a(9) > 20000, if it exists. All terms correspond to certified primes. - _Giovanni Resta_, Apr 06 2018
%t Flatten[{0, Select[Range[1000], PrimeQ[4*#^# + 1] &]}] (* _Vaclav Kotesovec_, Mar 25 2018 *)
%o (PARI) for(n=0, 100, if(isprime(4*n^n+1), print1(n", ")))
%Y Cf. A110932, A160600, A301520, A301522.
%K nonn,more
%O 1,3
%A _Seiichi Manyama_, Mar 23 2018
%E a(7)-a(8) from _Giovanni Resta_, Apr 06 2018
|