Primes p such that the polynomial x^5-x^4-x^3-x^2-x-1 mod p has 1 distinct zero.
2, 19, 29, 67, 73, 89, 97, 101, 103, 109, 127, 139, 149, 163, 167, 173, 179, 181, 191, 197, 211, 223, 227, 251, 271, 307, 313, 347, 349, 353, 367, 397, 401, 419, 449, 457, 487, 509, 569, 613, 619, 641, 643, 647, 653, 661, 701, 719, 743, 757, 773, 811, 821
1
This polynomial is the characteristic polynomial of the Fibonacci and Lucas 5-step sequences, A001591 and A074048.
T. D. Noe, Plot of 1000 terms
T. D. Noe, Table of 1000 terms
Eric W. Weisstein, MathWorld: Fibonacci n-Step Number
(Mma) s = Table[f = FactorList[x^5 - x^4 - x^3 - x^2 - x - 1, Modulus -> Prime[n]]; cnt = 0; Do[If[Exponent[f[[i, 1]], x] == 1, cnt++], {i, 2, Length[f]}]; cnt, {n, 150}]; Prime[Flatten[Position[s, 1]]]
Cf. A001591, A074048, A106281, A106284, S000478, S000479.
nonn
T. D. Noe, Feb 11 2015