A162861 Primes of the form n^10 + n^9 + n^8 + n^7 + n^6 + n^5 + n^4 + n^3 + n^2 + n + 1.
11, 12207031, 2141993519227, 10778947368421, 17513875027111, 610851724137931, 178250690949465223, 614910264406779661, 22390512687494871811, 2346320474383711003267, 22793803793211153712637
Offset: 1
Keywords
Programs
-
Mathematica
Select[Table[Total[n^Range[0,10]],{n,200}],PrimeQ] (* Harvey P. Dale, Feb 06 2015 *)
-
PARI
print1(11);for(n=2,1000,k=(n^11-1)/(n-1);if(isprime(k),print1(","k)))
Extensions
Program by Charles R Greathouse IV, Oct 12 2009
Comments