OFFSET
1,1
COMMENTS
See A058912 for numbers k such that k^k + k - 1 is prime. Subsequence of A231712 (numbers n^n + n - 1). - Jaroslav Krizek, Nov 13 2013
The next prime has 1460 digits. - Jinyuan Wang, Mar 01 2020
LINKS
Aldo Roberto Pessolano, Table of n, a(n) for n = 1..6
MATHEMATICA
Do[p=n^n+n-1; If[PrimeQ[p], Print[p]], {n, 100}]
PROG
(PARI) lista(nn) = for(k=1, nn, if(ispseudoprime(q=k^k+k-1), print1(q, ", "))); \\ Jinyuan Wang, Mar 01 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Marco Ripà, Mar 11 2011
STATUS
approved