|
|
A126435
|
|
Primes of the form n^7-n-1.
|
|
3
|
|
|
2097143, 1801088519, 21869999969, 42618442943, 78364164059, 137231006639, 194754273839, 435817657169, 678223072799, 1174711139783, 1727094849479, 3938980639103, 4398046511039, 4902227890559, 6722988818363, 19203908986079
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
Cf. A002327, A002328, A116581, A126420, A126421, A126422, A126423, A126424, A126425, A126426, A126427, A126427, A126428, A126429, A126430, A126431, A126432 A126433, A126434.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|