OFFSET
1,2
MATHEMATICA
b[i_]:=Rationalize[Pi, 10^(-i)]; Select[Range[685], b[#]==b[#+1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Feb 04 2023
STATUS
approved