

A268987


Primes of the form k^(k + 1) + k  1.


2




OFFSET

1,1


COMMENTS



LINKS



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)+n1]; // Vincenzo Librandi, Feb 17 2016
(PARI) lista(nn) = for(k=1, nn, if(ispseudoprime(q=k^(k+1)+k1), print1(q, ", "))); \\ Jinyuan Wang, Mar 01 2020


CROSSREFS

Cf. A309140 (the corresponding values of k).


KEYWORD

nonn


AUTHOR



STATUS

approved



