A302123 Numbers k such that 6*k^k - 5 is prime.
2, 3, 4, 7, 8, 9, 33, 138, 251, 467, 489, 9894
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[1, 1000], PrimeQ[6*#^# - 5] &] (* Vaclav Kotesovec, Apr 02 2018 *)
-
PARI
for(n=0, 300, if(isprime(6*n^n-5), print1(n", ")))
Extensions
a(10)-a(11) from Vaclav Kotesovec, Apr 02 2018
a(12) from Robert Price, Jan 04 2020
Comments