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