|
%I #11 Mar 13 2020 13:00:30
%S 2,3,4,5,10,11,15,16,17,19,20,21,27,28,30,34,36,44,48,50,56,72,75,82,
%T 84,97,101,103,105,109,113,117,130,133,141,154,157,163,177,179,188,
%U 197,204,207,218,240,248,249,250,252,262,268,281,283,285,286,291,301,305,315
%N Numbers k for which k^5-k-1 is prime.
%H Amiram Eldar, <a href="/A126427/b126427.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from T. D. Noe)
%t a = {}; Do[If[PrimeQ[x^5 - x - 1], AppendTo[a, x]], {x, 1, 1000}]; a
%Y Cf. A002327, A002328, A116581, A126420, A126421, A126422, A126423, A126424, A126425, A126426.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 26 2006
|
