OFFSET
1,1
COMMENTS
All terms end in 3 or 9. - Robert Israel, Jul 22 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 26 2006
STATUS
approved