|
%I #24 May 03 2022 15:29:13
%S 5,29,1978419655660313589123997,
%T 205891132094649000000000000000000000000000029
%N Primes of the form k^k + k - 1.
%C See A058912 for numbers k such that k^k + k - 1 is prime. Subsequence of A231712 (numbers n^n + n - 1). - _Jaroslav Krizek_, Nov 13 2013
%C The next prime has 1460 digits. - _Jinyuan Wang_, Mar 01 2020
%H <a href="/A187605/b187605.txt">Table of n, a(n) for n = 1..4</a>
%H Aldo Roberto Pessolano, <a href="/A187605/a187605.txt">Table of n, a(n) for n = 1..6</a>
%t Do[p=n^n+n-1; If[PrimeQ[p], Print[p]], {n, 100}]
%o (PARI) lista(nn) = for(k=1, nn, if(ispseudoprime(q=k^k+k-1), print1(q, ", "))); \\ _Jinyuan Wang_, Mar 01 2020
%Y Cf. A058912, A231712, A268987.
%K nonn
%O 1,1
%A _Marco Ripà_, Mar 11 2011
| 