%I
%S 2,4,5,7,22,1045
%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 Select[Range[1000], PrimeQ[4*#^#  3] &] (* _Vaclav Kotesovec_, Mar 25 2018 *)
%o (PARI) for(n=0, 100, if(isprime(4*n^n3), print1(n", ")))
%Y Cf. A301520, A301870.
%K nonn,hard,more
%O 1,1
%A _Seiichi Manyama_, Mar 23 2018
%E a(6) from _Vaclav Kotesovec_, Mar 25 2018
