%I #4 Mar 09 2016 16:30:42
%S 509,262139,10077689,387420479,68719476719,118587876479,1207269217769,
%T 7625597484959,10578455953379,129961739795039,327381934393919,
%U 1628413597910399,1953124999999949,5416169448144839,10077695999999939
%N Primes of the form n^9-n-1.
%H Harvey P. Dale, <a href="/A126438/b126438.txt">Table of n, a(n) for n = 1..1000</a>
%t k = 9; a = {}; Do[If[PrimeQ[x^k - x - 1], AppendTo[a, x^k - x - 1]], {x, 1, 100}]; a
%t Select[Table[n^9-n-1,{n,100}],PrimeQ] (* _Harvey P. Dale_, Mar 09 2016 *)
%Y Cf. A002327, A002328, A116581, A126420, A126421, A126422, A126423, A126424, A126425, A126426, A126427, A126427, A126428, A126429, A126430, A126431, A126432 A126433, A126434, A126435, A126436, A126437.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 26 2006
|