A072164 Numbers k >= 1 such that f(k) = k^k - (k-1)^(k-1) is prime.
2, 3, 4, 7, 11, 17, 106, 120, 1907, 7918
Offset: 1
Examples
2^2 - 1^1 = 3 is prime.
Links
- C. Rivera, Puzzle 185
- Eric Weisstein's World of Mathematics, Power Difference Prime
- Eric Weisstein's World of Mathematics, Integer Sequence Primes
Programs
-
Mathematica
Select[Range[2, 200], PrimeQ[ #^#-(#-1)^(#-1)]&] (* T. D. Noe, Jun 12 2008 *)
-
PARI
isok(k) = ispseudoprime(k^k - (k-1)^(k-1)); \\ Jinyuan Wang, Mar 19 2020
Extensions
7918 found by Henri Lifchitz in 2001, contributed by Eric W. Weisstein, Nov 29 2005
Comments