%I #17 Jan 05 2020 13:01:48
%S 2,3,4,7,8,9,33,138,251,467,489,9894
%N Numbers k such that 6*k^k - 5 is prime.
%C a(13) > 50000. - _Robert Price_, Jan 04 2020
%t Select[Range[1, 1000], PrimeQ[6*#^# - 5] &] (* _Vaclav Kotesovec_, Apr 02 2018 *)
%o (PARI) for(n=0, 300, if(isprime(6*n^n-5), print1(n", ")))
%Y Numbers k such that b*k^k - b + 1 is prime: A301521 (b=4), this sequence (b=6).
%Y Cf. A302090, A302124.
%K nonn,more,hard
%O 1,1
%A _Seiichi Manyama_, Apr 01 2018
%E a(10)-a(11) from _Vaclav Kotesovec_, Apr 02 2018
%E a(12) from _Robert Price_, Jan 04 2020
|