%I #9 Jun 20 2020 19:40:06
%S 2097143,1801088519,21869999969,42618442943,78364164059,137231006639,
%T 194754273839,435817657169,678223072799,1174711139783,1727094849479,
%U 3938980639103,4398046511039,4902227890559,6722988818363,19203908986079
%N Primes of the form n^7-n-1.
%C All terms end in 3 or 9. - _Robert Israel_, Jul 22 2019
%H Robert Israel, <a href="/A126435/b126435.txt">Table of n, a(n) for n = 1..10000</a>
%p map(t -> t^7-t-1, select(t -> isprime(t^7-t-1), [$1..10^4])); # _Robert Israel_, Jul 22 2019
%t k = 7; a = {}; Do[If[PrimeQ[x^k - x - 1], AppendTo[a, x^k - x - 1]], {x, 1, 100}]; a
%t Select[Table[n^7-n-1,{n,80}],PrimeQ] (* _Harvey P. Dale_, Jun 20 2020 *)
%Y Cf. A002327, A002328, A116581, A126420, A126421, A126422, A126423, A126424, A126425, A126426, A126427, A126427, A126428, A126429, A126430, A126431, A126432 A126433, A126434.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 26 2006
|