OFFSET
1,1
COMMENTS
No other p < 10^6.
For Fibonacci numbers (A000045), primes with a similar property are called Wall-Sun-Sun primes, but none of them are known.
LINKS
Wikipedia, Wall-Sun-Sun prime.
EXAMPLE
MATHEMATICA
FibonacciZero[n_, kMax_, m_] := Module[{a, s, k}, a=Join[{1}, Table[0, {n-1}]]; a=Mod[a, m]; k=0; While[k++; s=Mod[Plus@@a, m]; a=RotateLeft[a]; a[[n]]=s; s>0&&k<kMax]; If[s==0, k, -1]]; Do[p=Prime[n]; zero=FibonacciZero[3, Infinity, p]; If[zero==FibonacciZero[3, zero, p^2], Print[{p, zero}]], {n, 1000}]
CROSSREFS
KEYWORD
bref,hard,more,nonn
AUTHOR
T. D. Noe, May 17 2005
EXTENSIONS
Edited by Max Alekseyev, Nov 18 2025
STATUS
approved
