|
| |
|
| A106858号 |
| 形式为2x^2+xy+2y^2的素数，x和y为非负。 |
|
2
|
|
|
|
2, 5, 23, 83, 107, 137, 173, 257, 293, 347, 353, 467, 503, 617, 647, 653, 743, 797, 857, 953, 983, 1223, 1277, 1283, 1307, 1427, 1487, 1493, 1523, 1553, 1637, 1787, 1877, 1913, 1997, 2003, 2027, 2213, 2237, 2243, 2393, 2423, 2447, 2657, 2663
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
判别式=-15。
|
|
|
链接
|
文森佐·利班迪（Vincenzo Librandi）、新泽西·A·斯隆（N.J.A.Sloane）和雷·钱德勒（Ray Chandler），n=1..10000时的n，a（n）表[文森佐·利班迪（Vincenzo Librandi）的前1000个条款，新泽西·A·斯隆（N.J.A.Sloane）的下1000个条款]
|
|
|
数学
|
四元数2[a_，b_，c_，lmt_]：=模[{p，d，lst={}，xMax，yMax}，d=b^2-4a*c；如果[a>0&c>0&&d<0，xMax=Sqrt[lmt/a]*（1+Abs[b]/Floor[Sqrt[-d]]）]；Do[如果[4c*lmt+d*x^2>=0，yMax=（（-b）*x+Sqrt[4c*1mt+d*x^2]）/（2c），yMax=0]；做[p=a*x^2+b*x*y+c*y^2；如果[PrimeQ[p]&&！成员Q[lst，p]，附加到[lst、p]]，{y，0，yMax}]，{x，0，xMax}]；排序[lst]]；
t2=四素数2[2,1,2,350000]；
长度[t2]
t2[[长度[t2]]
对于[n=1，n<=2000，n++，打印[n，“”，t2[[n]]]（*来自N.J.A.斯隆2014年6月17日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
用正确的程序、重新计算的扩展b文件替换Mma程序-N.J.A.斯隆2014年6月17日
|
|
|
状态
|
经核准的
|
| |
|
|
