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
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
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 *)
-
PARI
for(n=1,10^3,if(isprime(n^10-n-1),print1(n,", "))); \\ Joerg Arndt, Oct 24 2013