OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Fibonacci n-Step Number
MATHEMATICA
t=Table[p=Prime[n]; cnt=0; Do[If[Mod[x^4-x^3-x^2-x-1, p]==0, cnt++ ], {x, 0, p-1}]; cnt, {n, 1600}]; Prime[Flatten[Position[t, 4]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, May 02 2005
STATUS
approved