OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。

登录

OEIS由OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A245096型 如果其中一个数字被删除，其正方形将成为立方体的数字。 2 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 评论 A249853型给出了删除其中一个数字后其立方体变为正方形的数字。 不包括带有一位数正方形的数字-戴维公园2016年12月30日 链接 保罗·拉瓦，n=1..100时的n，a（n）表 例子 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，do 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[Delete[Integer Digits[n^2]，#]和/@Range[IntegerLength[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日*） 交叉参考 囊性纤维变性。A249853型. 上下文中的序列：A004631号 A316113飞机 A336256型*A352097型 A354853型 A119718号 相邻序列：A245093型 A245094型 A245095型*A245097型 A245098型 A245099型 关键词 非n,基础 作者 保罗·拉瓦2014年11月12日 状态 经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间：美国东部夏令时2024年5月18日16:58。包含372664个序列。（在oeis4上运行。）