%I #21 Apr 22 2019 17:36:20
%S 0,1,2,5,10,44,65,1424
%N Numbers k such that 4*k^k + 3 is prime.
%C Next term, if it exists, is greater than 5000. - _Vaclav Kotesovec_, Mar 25 2018
%C Next term, if it exists, is greater than 25000. - _Robert Price_, Apr 22 2019
%t Flatten[{0, Select[Range[1000], PrimeQ[4*#^# + 3] &]}] (* _Vaclav Kotesovec_, Mar 25 2018 *)
%o (PARI) for(n=0, 100, if(isprime(4*n^n+3), print1(n", ")))
%Y Cf. A110932, A160360, A301519, A301521.
%K nonn,hard,more
%O 1,3
%A _Seiichi Manyama_, Mar 23 2018
%E a(8) from _Vaclav Kotesovec_, Mar 25 2018