login
A125967
Numbers n for which n^9+n^8-1 is prime.
1
14, 21, 27, 42, 51, 53, 69, 78, 90, 104, 111, 128, 137, 149, 156, 159, 190, 219, 231, 247, 254, 289, 315, 322, 330, 331, 336, 344, 354, 397, 414, 432, 442, 449, 452, 456, 469, 473, 491, 511, 541, 551, 566, 581, 614, 621, 648, 683, 687, 692, 698, 699, 702, 707, 740, 771, 772, 775, 813, 820, 832
OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 14 2006
EXTENSIONS
More terms from Robert Israel, Oct 07 2019
STATUS
approved