A300976 Numbers k such that k^k - 5 is a prime.
4, 104, 124, 728
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[1000], PrimeQ[#^# - 5] &] (* Vaclav Kotesovec, Mar 25 2018 *)
-
PARI
isok(k) = ispseudoprime(k^k - 5); \\ Altug Alkan, Mar 17 2018
Comments