A255730 Numbers k such that k^k - (k-1)^k + k is prime.
1, 2, 4, 16, 52, 80
Offset: 1
Examples
4 is in the sequence because 4^4 - 3^4 + 4 = 179 is prime.
Crossrefs
Cf. A085682.
Programs
-
Magma
[n: n in [0..500] |IsPrime(n^n - (n-1)^n + n)];
-
Mathematica
Select[Range[1000], PrimeQ[#^# - (# - 1)^# + #] &]
-
PARI
is(n)=ispseudoprime(n^n-(n-1)^n+n) \\ Charles R Greathouse IV, Jun 13 2017
Comments