Wolfram mathematica Wolfram Mathematica显示N，直到达到特定数字

使用Wolfram Mathematica的人能告诉我如何显示N直到生成一个特定的数字吗？想要显示pi的值，直到它达到6764。

请特别查看可下载笔记本

pi = N[Pi, 30000];
string = StringTake[ToString[pi], {3, -3}];
pos = StringPosition[string, "6764"][[All, 2]];
"3." <> StringTake[string, First[pos]]

pi=N[pi，30000]；
string=StringTake[ToString[pi]，{3，-3}]；
pos=StringPosition[string，“6764”][[All，2]]；
“3.“StringTake[string，First[pos]]

3.1415926535…1627886764

特别是可下载的笔记本

pi = N[Pi, 30000];
string = StringTake[ToString[pi], {3, -3}];
pos = StringPosition[string, "6764"][[All, 2]];
"3." <> StringTake[string, First[pos]]

pi=N[pi，30000]；
string=StringTake[ToString[pi]，{3，-3}]；
pos=StringPosition[string，“6764”][[All，2]]；
“3.“StringTake[string，First[pos]]

3.1415926535…1627886764