OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= k -> isprime(k^9+k^8-1):
select(filter, [$1..1000]); # Robert Israel, Oct 07 2019
MATHEMATICA
Do[If[PrimeQ[x^9 + x^8 - 1], Print[x]], {x, 1, 400}]
PROG
(PARI) is(n)=isprime(n^9+n^8-1) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 14 2006
EXTENSIONS
More terms from Robert Israel, Oct 07 2019
STATUS
approved