A126435 Primes of the form n^7-n-1.
2097143, 1801088519, 21869999969, 42618442943, 78364164059, 137231006639, 194754273839, 435817657169, 678223072799, 1174711139783, 1727094849479, 3938980639103, 4398046511039, 4902227890559, 6722988818363, 19203908986079
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Maple
map(t -> t^7-t-1, select(t -> isprime(t^7-t-1), [$1..10^4])); # Robert Israel, Jul 22 2019
-
Mathematica
k = 7; a = {}; Do[If[PrimeQ[x^k - x - 1], AppendTo[a, x^k - x - 1]], {x, 1, 100}]; a Select[Table[n^7-n-1,{n,80}],PrimeQ] (* Harvey P. Dale, Jun 20 2020 *)
Comments