A072179 Numbers n such that n^(n+1) - (n+1)^n is prime.
3, 6, 9, 12, 44, 883, 1277
Offset: 1
Keywords
Programs
-
Mathematica
Do[ If[ PrimeQ[ n^(n + 1) - (n + 1)^n], Print[n]], {n, 1, 2000}]
-
PARI
is(n)=ispseudoprime(n^(n+1)-(n+1)^n) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
Edited and extended by Robert G. Wilson v, Jul 02 2002
Comments