OFFSET
1,1
LINKS
Rishi Kumar, Kepler Sets of Second-Order Linear Recurrence Sequences Over Q_p, arXiv:2406.05890 [math.NT], 2024. See pp. 6-7.
FORMULA
MATHEMATICA
a[n_]:=Length[Select[Prime[Range[PrimePi[10^n]]], Function[p, c=0; b=1; m=1; While[b != 0, t=b; b = Mod[(c+b), p]; c=t; m++]; m>p]]]; Array[a, 4] (* after Charles R Greathouse IV and Jean-François Alcover in A000057 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Stefano Spezia, Jun 18 2024
STATUS
approved