A230581 Numbers k such that k^10 - k - 1 is prime.

2, 4, 5, 6, 7, 14, 22, 25, 40, 47, 50, 57, 60, 69, 71, 76, 102, 107, 111, 114, 127, 137, 146, 152, 172, 189, 196, 197, 207, 212, 231, 251, 267, 277, 284, 291, 294, 296, 307, 309, 316, 319, 324, 371, 386, 392, 397, 412, 414, 445, 447, 467, 481, 494, 524, 527

Offset

1,1

Links

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

Maple

filter:= n -> isprime(n^10-n-1):
select(filter, [$1..1000]); # Robert Israel, May 15 2025

Mathematica

Select[Range[600], PrimeQ[#^10-#-1]&] (* Harvey P. Dale, Aug 20 2021 *)

Prog

(PARI) for(n=1, 10^3, if(isprime(n^10-n-1), print1(n, ", "))); \\ Joerg Arndt, Oct 24 2013

Crossrefs

Sequence in context: A134532 A282278 A268448 * A361825 A248962 A323455

Adjacent sequences: A230578 A230579 A230580 * A230582 A230583 A230584

Keyword

nonn

Author

Edward Jiang, Oct 23 2013

Status

approved