A373774 a(n) is the number of terms of A000057 in [10^n].
3, 7, 38, 249, 1894, 15456, 130824, 11344404, 10007875, 89562047
Offset: 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.
Programs
-
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 *)