A125967 Numbers n for which n^9+n^8-1 is prime.

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

Author

Artur Jasinski, Dec 14 2006

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040, A045546, A125881-A125885, A125965-A125973.

Programs

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}]

PARI

is(n)=isprime(n^9+n^8-1) \\ Charles R Greathouse IV, May 15 2013

Extensions

More terms from Robert Israel, Oct 07 2019