|
%I #9 Apr 21 2024 11:18:46
%S 29,239,1019,3119,99989,161039,759359,1048559,1419839,2476079,3199979,
%T 4084079,14348879,17210339,24299969,45435389,60466139,164916179,
%U 254803919,312499949,550731719,1934917559,2373046799,3707398349
%N Primes of the form k^5-k-1.
%C Every number give rest 29 when divided 30, rest 9 when divided 10, rest 4 when divided 5
%H Amiram Eldar, <a href="/A126425/b126425.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A126426(A126427(n)). - _Amiram Eldar_, Mar 13 2020
%t a = {}; Do[If[PrimeQ[x^5 - x - 1], AppendTo[a, x^5 - x - 1]], {x, 1, 100}]; a
%t Select[Table[k^5-k-1,{k,90}],PrimeQ] (* _Harvey P. Dale_, Apr 21 2024 *)
%Y Cf. A002327, A002328, A116581, A126420, A126421, A126422, A126423, A126424, A126426, A126427.
%K nonn,changed
%O 1,1
%A _Artur Jasinski_, Dec 26 2006
|
