%I#13 2017年7月9日12:41:14

%S 0,1,2,3,2,5,6,7,8,3,10,11,12,13,14,15,4,17,18,19,20,21,22,23,24,5,26，

%电话：27,28,29,30,31,32,33,34,35,6,37,38,39,40,41,42,43,44,45,46,47,48,7，

%U 50、51、52、53、54、55、56、57、58、59、60、61、62、63、8、65、66、67、68、69、70、71、72、73、74

%N如果N是正方形，则替换为sqrt（N）。

%e前五个整数0,1,2,3,4具有平方0,1,4，因此序列中的前五个整型为0,1,2,3,2。

%t表[If[IntegerQ[Sqrt[n]]，Sqrt[n]，n]，{n，0100}]（*_哈维·P·戴尔，2017年7月9日*）

%o（PARI）g（n）=对于（x=0，n，如果（issquare（x），y=sqrt（x）），y=x）；打印1（楼层（y）“，”）

%o（PARI），用于（n=0,74，print1（if（issquare（n，&m），m，n）“，”））\\_Zak Seidov，2013年2月21日

%K nonn公司

%O 0.3

%2004年8月23日，A Clino Hilliard