Primes p such that the polynomial x^4-x^3-x^2-x-1 mod p has 1 distinct zero.
3, 7, 17, 19, 23, 47, 59, 61, 67, 71, 101, 107, 113, 127, 149, 181, 191, 193, 211, 223, 241, 269, 277, 281, 337, 349, 383, 401, 409, 421, 439, 449, 467, 491, 503, 509, 541, 557, 607, 683, 709, 733, 739, 751, 757, 773, 809, 821, 839, 863, 967, 1021, 1031, 1033
1
This polynomial is the characteristic polynomial of the Fibonacci and Lucas 4-step sequences, A000078 and A073817.
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^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, 200}]; Prime[Flatten[Position[s, 1]]]
Cf. A000078, A073817, A106280, A106283, S000476.
nonn
T. D. Noe, Feb 11 2015