OFFSET
1,1
MATHEMATICA
imax=34; Intersection[Numerator[Convergents[ContinuedFraction[Pi, imax]]], Table[Numerator[Rationalize[Pi, 10^(-i)]], {i, 0, 2*imax}]]
CROSSREFS
KEYWORD
nonn,base,frac
AUTHOR
Stefano Spezia, Feb 04 2023
STATUS
approved