A268987 Primes of the form k^(k + 1) + k - 1.
83, 15629, 279941, 3486784409, 6568408355712890639
Offset: 1
Keywords
Links
- Factordb, n^(n + 1) + n - 1.
Crossrefs
Programs
-
Magma
[a: n in [0..100] | IsPrime(a) where a is n^(n+1)+n-1]; // Vincenzo Librandi, Feb 17 2016
-
Mathematica
Select[Table[n^(n + 1) + n - 1, {n, 1, 50}], ProvablePrimeQ[#] &]
-
PARI
lista(nn) = for(k=1, nn, if(ispseudoprime(q=k^(k+1)+k-1), print1(q, ", "))); \\ Jinyuan Wang, Mar 01 2020
Comments