A288491 Numbers k such that k^k*prime(k) - 1 is prime.
2, 6, 40, 56, 954
Offset: 1
Examples
a(1) = 2 because 3*2^2-1 = 11 a prime. a(2) = 6 because 13*6^6-1 = 606527 a prime.
Crossrefs
Cf. A086173.
Programs
-
Magma
[n: n in [1..1000] | IsPrime(NthPrime(n)*n^n-1)];
-
Mathematica
Select[Range[1000], PrimeQ[Prime[#] #^# - 1] &]
Comments