|
%I #10 Nov 15 2020 11:32:01
%S 2,3,4,5,10,12,13,14,18,19,21,31,35,36,38,41,46,47,48,57,61,72,75,87,
%T 90,98,103,129,132,137,146,148,161,168,169,173,176,183,195,208,212,
%U 214,221,224,235,237,241,251,252,265,268,270,273,276,280,282,294,295,296,301,304,318
%N Numbers k such that k^5-k+1 is prime.
%H Robert Israel, <a href="/A338897/b338897.txt">Table of n, a(n) for n = 1..10000</a>
%p select(k -> isprime(k^5-k+1), [$1..1000]); # _Robert Israel_, Nov 15 2020
%o (PARI) select(k -> isprime(k^5-k+1), [1..318]) \\ _Rémy Sigrist_, Nov 15 2020
%Y For the primes themselves see A338893.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 14 2020
|
