%I#21 2022年6月14日16:41:20

%S 0,1,2,3,7,10,12,20,21,30,38,70,97100102107120138201210，

%电话：212300380648700701951970997100010021007102010491070，

%电话：12001380139320002001020002103000314831533451374337473800

%N对k进行编号，使k^2的数字为正方形。

%H Giovanni Resta，n的表，a（n）表示n=1..10000（Colin Barker的前350个术语）

%F a（n）=平方（A019544（n））_Alois P.Heinz，2017年4月21日

%t Sqrt[#]&/@Select[Range[03800]^2，SubsetQ[{0,1,4,9}，Integer Digits[#]]&]（*哈维·P·戴尔，2022年6月14日*）

%o（PARI）最大k=10000；L=列表（）；对于（k=0，maxk，if（set减号（vecsort（digits（k^2），，8），[0,1,4,9]）==[]，listput（L，k））；Vec（左）

%Y参见A000290、A019544、A046030。

%K nonn，基础

%氧1,3

%A Colin Barker_，2017年4月21日