|
| |
|
| A100268号 |
| 形式为x^4+y^4的素数与x^2+y^2和x+y也是素数。 |
|
三
|
|
|
|
2, 17, 97, 257, 641, 1297, 4177, 4721, 12401, 15937, 16561, 38561, 65537, 83537, 89041, 105601, 140321, 160081, 204481, 283937, 284881, 384817, 391921, 411361, 462097, 471617, 531457, 643217, 824641, 838561, 1049201, 1089841, 1342897
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
第一个Mathematica程序生成形式为x^4+y^4的数字，数量级递增；当所有x^2^k+y^2^k都是k=0,1,2的素数时，它接受一个数字。
|
|
|
链接
|
|
|
|
数学
|
n=2；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]]；allPrime=真；k=0；而[k<=n&&allPrime，allPrime=PrimeQ[x^2^k+y^2^k]；k++]！allPrime]；p、 {40}]
使用[{nn=40}，选择[Union[Transpose[Select[Total/@{#^4，#^2，#}和/@Tuples[Range[nn]，2]，AllTrue[#，PrimeQ]&]][1]，#<=nn^4+1&]]（*程序使用Mathematica版本10*中的AllTrue函数）(*哈维·P·戴尔2015年4月23日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
