S000479


Primes p such that the polynomial x^5-x^4-x^3-x^2-x-1 mod p has 3 distinct zeros.

47, 61, 113, 137, 193, 283, 293, 593, 709, 751, 797, 991, 1117, 1283, 1451, 1487, 1567, 1609, 1951, 2029, 2113, 2239, 2251, 2287, 2423, 2657, 2659, 2689, 2957, 3121, 3187, 3299, 3329, 3371, 3541, 3593, 3671, 3853, 4211, 4441, 4457, 4561, 4937, 4987, 5099

1

S000479

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, 700}]; Prime[Flatten[Position[s, 3]]]

Cf. A001591A074048A106281A106284, S000477, S000478.

nonn

T. D. Noe, Feb 11 2015

© Tony D Noe 2014-2015