%I#19 2019年8月27日17:49:01

%S 1,3,5,10264083041169915330168101691022463259062665235950，

%电话：7242975470134141142413194711270353296073371964496254654609，

%电话：16406791729409185468044965497389855841205783816

%N数N，使得π（N^2）是一个正方形。

%C a（28）>2*10^6。[_Donovan Johnson_，2010年5月30日]

%e n=14：a（14）=35950，Pi（35950^2）=Pi（1292402500）=64866916=8054^2

%t Do[If[IntegerQ[Sqrt[PrimePi[n^2]]，打印[n]]，{n，1，400000}]

%t lst={}；Do[If[IntegerQ@Sqrt@PrimePi[n^2]，AppendTo[lst，n]；打印@n]，{n，520000}]；第1页（*Robert G.Wilson v_，2006年2月3日*）

%o（PARI）pi（x，c=0）=素数（p=2，x，c++）；c代表（n=1,10^6，如果（平方（π（n^2）），打印1（n，“”））

%Y参考A000720，A115835（pi（a（n））的平方根）。

%K nonn公司

%O 1,2号机组

%A _Jason Earls，2001年10月7日

%E更多条款，摘自2001年10月8日_Robert G.Wilson v _ and _Labos Elemer _

%E Robert G.Wilson v_的进一步条款，2001年10月16日

%E a（20）摘自_Robert G.Wilson v_，2006年2月3日

%E添加了缺失的术语134141、142413、194711和（24）-a（27），来自Donovan Johnson_，2010年5月30日

%E a（28）-a（31），来自恰瓦乌，2019年8月27日