OFFSET
1,1
COMMENTS
The next prime has 171 digits. - Vincenzo Librandi, Feb 17 2016
Subsequence of primes of A155499. - Michel Marcus, Feb 20 2016
LINKS
Factordb, n^(n + 1) + n - 1.
MATHEMATICA
Select[Table[n^(n + 1) + n - 1, {n, 1, 50}], ProvablePrimeQ[#] &]
PROG
(Magma) [a: n in [0..100] | IsPrime(a) where a is n^(n+1)+n-1]; // Vincenzo Librandi, Feb 17 2016
(PARI) lista(nn) = for(k=1, nn, if(ispseudoprime(q=k^(k+1)+k-1), print1(q, ", "))); \\ Jinyuan Wang, Mar 01 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Soumadeep Ghosh, Feb 16 2016
STATUS
approved