A058912 Numbers k such that k^k + k - 1 is prime.
2, 3, 19, 30, 535, 1551, 7069, 8508
Offset: 1
Examples
3 is a term because 3^3 + 3 - 1 = 29.
Programs
-
Mathematica
Do[ If[ PrimeQ[ n^n + n - 1], Print[n]], {n, 1, 750} ]
-
PARI
is(n)=ispseudoprime(n^n+n-1) \\ Charles R Greathouse IV, Feb 20 2017
Extensions
a(6) from Farideh Firoozbakht, Oct 18 2006
a(7)-a(8) from Hugo Pfoertner, Mar 02 2020
Comments