|
| |
|
| A316982飞机 |
| 把k的十进制展开式中的每个数字d替换为d^3，这样每次递归三次，都会得到一个质数。 |
|
1
|
|
|
|
11, 31, 101, 173, 1307, 1873, 10111, 11923, 12209, 14767, 20357, 20729, 21149, 22003, 22151, 29261, 43681, 43891, 52033, 52211, 55231, 58121, 65011, 70027, 70399, 80569, 100087, 101111, 101401, 102079, 102113, 120091, 151931, 163669, 172001, 200501, 201113, 203831
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
173是一个项，因为将每个数字d替换为d^3，递归三次，得到一个质数：173->134327（质数）；134327->12764278343（素数）；12764278343->18343216648343512276427（素数）。
1873是一个术语，因为用d^3替换每个数字d，递归三次，得到一个素数：1873->151234327（素数）；151234327->1125182764278343（素数）；1125182764278343->11812515128343216648343512276427（素数）。
|
|
|
数学
|
A316982年= {}; Do[a=FromDigits[Flatten[IntegerDigits/@（IntegerBigits[n]^3）]]；b=FromDigits[Flatten[Integer Digits/@（IntegerDigits[a]^3）]]；c=FromDigits[Flatten[Integer Digits/@（IntegerDigits[b]^3）]]；如果[PrimeQ[a]和&PrimeQ[b]和&PrimeQ[c]，附录[A316982飞机，n]]，{n，300000}]；A316982年（*或*）
c[n_]：=FromDigits@Flatten@IntegerDigits[n]^3]；选择[Range[204000]，PrimeQ[x=c@#]&&PrimeQ[y=c@x]&&底漆Q@c@y和](*乔瓦尼·雷斯塔2018年7月18日*）
p3[n_]：=休息[NestList[FromDigits[Flatten[IntegerDigits/@（IntegerPigits[#]^3）]&，n，3]]；选择[Range[205000]、AllTrue[p3[#]、PrimeQ]&]（*程序使用Mathematica版本10*中的AllTrue函数）(*哈维·P·戴尔2019年8月11日*）
|
|
|
黄体脂酮素
|
（PARI）eva（n）=替代（Pol（n），x，10）
replace_digits（n）=我的（d=数字（n），e=[]）；对于（x=1，#d，my（f=数字（d[x]^3））；如果（f==[]，e=concat（e，[0]），对于（y=1，#f，e=concat（e[y]）））；经济增加值
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
