%I #11 Aug 20 2021 17:28:48
%S 2,4,5,6,7,14,22,25,40,47,50,57,60,69,71,76,102,107,111,114,127,137,
%T 146,152,172,189,196,197,207,212,231,251,267,277,284,291,294,296,307,
%U 309,316,319,324,371,386,392,397,412,414,445,447,467,481,494,524,527
%N Numbers n such that n^10 - n - 1 is prime.
%t Select[Range[600],PrimeQ[#^10-#-1]&] (* _Harvey P. Dale_, Aug 20 2021 *)
%o (PARI) for(n=1,10^3,if(isprime(n^10-n-1),print1(n,", "))); \\ _Joerg Arndt_, Oct 24 2013
%K nonn
%O 1,1
%A _Edward Jiang_, Oct 23 2013
|