搜索: 编号:a245096
|
|
|
|
4, 9, 10, 20, 30, 35, 46, 54, 96, 100, 200, 300, 325, 395, 411, 520, 800, 1000, 1470, 2000, 2448, 2700, 3000, 3144, 4000, 4209, 4633, 6400, 6947, 9000, 9051, 10000, 12500, 13719, 20000, 21600, 25300, 30000, 34300, 35000, 46000, 51200, 54000, 61632, 72900, 96000
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
不包括带有一位数正方形的数字-戴维公园2016年12月30日
|
|
链接
|
|
|
例子
|
4^2=16和(1)^1/3=1。
9^2=81和(8)^1/3=2或(1)^1/3=1。
10^2=100和(00)^1/3=0。
3144^2=9884736和(884736)^1/3=96。
|
|
MAPLE公司
|
使用(数字理论):P:=proc(q,h)局部a,b,k,n;
对于从4到q的n,做a:=n^2;对于k从0到ilog10(a)do
b: =trunc(a/10^(k+1))*10^k+(模10^k);
如果b=trunc(evalf((b)^(1/h)))^h,则打印(n);
断裂;fi;od;od;结束:P(10^9,3);
|
|
数学
|
f[n]:=!MissingQ@SelectFirst[删除[整数位数[n^2],#]和/@范围[整数长度[n^2]],整数Q@CubeRoot@FromDigits@#&];
选择[Range[4,1000],f](*戴维公园2016年12月30日*)
scddQ[x_]:=AnyTrue[Table[FromDigits[Delete[IntegerDigits[x^2],n]],{n,IntegerLength[x^2]}],Integer Q[CubeRoot[#]]&];选择[Range[100000],scddQ](*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔2018年4月2日*)
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.006秒内完成
|