|
|
A187605
|
|
Primes of the form k^k + k - 1.
|
|
7
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|