A187605 Primes of the form k^k + k - 1.
5, 29, 1978419655660313589123997, 205891132094649000000000000000000000000000029
Offset: 1
Keywords
Links
- Table of n, a(n) for n = 1..4
- Aldo Roberto Pessolano, Table of n, a(n) for n = 1..6
Programs
-
Mathematica
Do[p=n^n+n-1; If[PrimeQ[p], Print[p]], {n, 100}]
-
PARI
lista(nn) = for(k=1, nn, if(ispseudoprime(q=k^k+k-1), print1(q, ", "))); \\ Jinyuan Wang, Mar 01 2020
Comments