搜索： 编号：a100266
|
| |
| |
|
|
|
2, 65537, 4338014017, 2973697798081, 36054040477057, 314707907280257, 184884411482927041, 665698084159890497, 675416609183179841, 2177953490397261761, 8746361693522261761, 18492693803573123777
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
Mathematica程序生成形式为x^16+y^16的数字，数量级递增；当它是质数时，它接受一个数字。
|
|
|
链接
|
|
|
|
数学
|
n=4；pwr=2^n；xmax=2；r=范围[xmax]；num=r^pwr+r^pwr；表[While[p=Min[num]；x=位置[num，p][[1，1]]；y=r[[x]]；r[[x]]++；num[[x]]=x^pwr+r[[x]]^pwr；如果[x==xmax，xmax++；追加到[r，xmax+1]；附加到[num，xmax^pwr+（xmax+1）^pwr]]！PrimeQ[p]]；p、 {15}]
q=16；lst={}；Do[Do[p=n^q+m^q；If[PrimeQ[p]，AppendTo[lst，p]]，{n，0，5！}]，{m，0，五！}]；第一阶段；长度[lst]；拿下[Union[lst]，55](*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年2月21日*）
并集[Select[Total[#^16]和/@Tuples[Range[20]，2]，PrimeQ]](*哈维·P·戴尔2013年11月3日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.003秒内完成
|
