|
| |
|
| A131278号 |
| 对m进行编号，使m除以前m个素数的18次幂之和。 |
|
2
|
|
|
|
1、37、265、17207、9382589、970248431、2427811793、156281194823、2955922292131、372012276565795
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
a（10）>3.0*10^12-布鲁斯·加纳2021年3月17日
|
|
|
链接
|
|
|
|
数学
|
s=0；Do[s=s+Prime[n]^18；如果[Mod[s，n]==0，打印[n]]，｛n，10^6｝]
使用[{nn=18000}，Transpose[With[{c=Thread[{Range[nn]，Accumulate[Prime[Range[nn]]^18]}]}，Select[c，Divisible[Last[#]，First[#]]&]]][[1](*哈维·P·戴尔2011年12月19日*）
|
|
|
交叉参考
|
囊性纤维变性。A085450美元=最小m>1，使得m除以和{k=1..m}素数（k）^n。
|
|
|
关键词
|
更多,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
已批准
|
| |
|
|
