%I #17 Oct 31 2021 15:48:18
%S 31,241,1021,3121,99991,248821,371281,537811,1889551,2476081,4084081,
%T 28629121,52521841,60466141,79235131,115856161,205962931,229344961,
%U 254803921,601692001,844596241,1934917561,2373046801,4984209121,5904899911,9039207871,11592740641
%N Primes of the form k^5-k+1.
%C It is not known if there is an infinitude of primes of this form.
%H Robert Israel, <a href="/A338893/b338893.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A338897(n)^5 - A338897(n)+1. - _Robert Israel_, Nov 18 2020
%p select(isprime, [seq(k^5-k+1,k=1..1000)]); # _Robert Israel_, Nov 18 2020
%t Select[Table[k^5-k+1,{k,200}],PrimeQ] (* _Harvey P. Dale_, Oct 31 2021 *)
%Y For the values of k see A338897.
%K nonn
%O 1,1
%A _Eleftherios Argyropoulos_, Nov 14 2020