A187602 Primes of the form (k+1)^(k-1) + k.
2, 5, 19, 1301, 262151, 4782977
Offset: 1
Examples
1301 is in the sequence since it is prime and, using k = 5, (k+1)^(k-1) + k = 6^4 + 5 = 1296 + 5 = 1301.
Crossrefs
Cf. A238378 (corresponding k).
Programs
-
Mathematica
Do[p=(n+1)^(n-1)+n; If[PrimeQ[p], Print[p]], {n, 250}]
-
PARI
lista(nn) = for(k=1, nn, if(ispseudoprime(q=(k+1)^(k-1)+k), print1(q, ", "))); \\ Jinyuan Wang, Mar 01 2020
Extensions
a(8)-a(10) from Matevz Markovic, Mar 03 2014
Comments