%I#23 2018年4月2日15:47:02

%S 4,9,10,20,30,35,46,54,9610020032032539541152080010001470，

%电话：2000244827000300031440004209463240069479900090511000，

%电话：125001371920000216002530030000343003500460005120054000616327290096000

%N如果其中一个数字被删除，其正方形将成为立方体的数字。

%C A249853给出了如果其中一个数字被删除，其立方体将变为正方形的数字。

%不包括带有一位数正方形的C数字_Davin Park_，2016年12月30日

%H Paolo P.Lava，n的表格，n=1..100的a（n）</a>

%e 4^2=16和（1）^1/3=1。

%e 9^2=81和（8）^1/3=2或（1）^1/3=1。

%e 10^2=100和（00）^1/3=0。

%e 3144^2=9884736和（884736）^1/3=96。

%p with（numtheory）：p:=进程（q，h）局部a，b，k，n；

%p代表n从4到q做a:=n^2；对于k从0到ilog10（a）do

%p b：=trunc（a/10^（k+1））*10^k+（模10^k）；

%p如果b=trunc（evalf（（b）^（1/h）））^h，则打印（n）；

%p断裂；fi；od；od；结束：P（10^9,3）；

%t f[n]：=！MissingQ@SelectFirst[删除[整数位数[n^2]，#]和/@范围[整数长度[n^2]]，整数Q@CubeRoot@FromDigits@#&]；

%t选择[Range[41000]，f]（*达文公园，2016年12月30日*）

%t scddQ[x_]：=AnyTrue[Table[FromDigits[Delete[IntegerDigits[x^2]，n]]，{n，IntegerLength[x^2]}]，Integer Q[CubeRoot[#]]&]；选择[Range[100000]，scddQ]（*需要Mathematica版本10或更高版本*）（*Harvey P.Dale_，2018年4月2日*）

%Y参考A249853。

%K nonn，基础

%O 1,1号机组

%2014年11月12日，A_Paolo P.Lava