%I#28 2023年10月27日22:15:20

%S 4,5,6,10,20,21,25,40,44,64,90100129160200250360400490500，

%电话：60064081010001210144016901960200020252100225025002560，

%电话：28903240361040044104840502552905760625064006760729078408410

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

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

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

%H Alois P.Heinz，n表，n=1..1000的a（n）（前100个术语来自Paolo P.Lava）

%e 21^3=9261和sqrt（961）=31。

%e 44^3=85184，sqrt（5184）=72。

%e 45625^3=94974853515625，sqrt（9474853515625）=3078125。

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

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

%p if类型（sqrt（trunc（a/10^（k+1））*10^k+（a mod 10^k）），整数）

%p然后打印（n）；断裂；fi；od；od；结束：P（10^9）；

%t f[n]：=！MissingQ@SelectFirst[Delete[Integer Digits[n^3]，#]和/@Range[IntegerLength[n^3]]，整数Q@Sqrt@FromDigits@#&]；

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

%Y参见A249587、A225885。

%K nonn，基础

%O 1,1号机组

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