|
| |
|
| A271348号 |
| 素数p，使得p+2*k^2是从k=1开始的至少10个连续k值的素数。 |
|
4
|
|
|
|
11, 29, 438926021, 1210400879, 7446335849, 31757068151, 33090566651, 33164857769, 40137398219, 45133754591, 46642404071, 100444384301, 114546675671, 144553207691, 159587584529, 161557039991, 166054101539, 210447830009, 227625400031, 236241327599, 254850262949, 272259344081
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
数字10被选为最小两位数的阈值。你可以选择其他数字，如果它们小于12，那么与此类似的序列的第一项将是A165234号.
在前10^10个素数中，有20个这样的素数。第二项29产生28个素数(A007641号). 其他16人，包括11人(A050265型)，只产生10个素数，而三个产生11个素数。这三个是：33164857769（另请参阅A165234号)159587584529和236241327599。第二个10^10素数中的第一项是254850262949。然后是272259344081（在A165234号)生成13个素数。
所有这些素数都以1或9结尾，与5模6同余。
|
|
|
链接
|
|
|
|
示例
|
11是一个项，因为11+2*k^2产生10个素数，从1开始连续10个k值（参见A050265型).
|
|
|
数学
|
lst＝｛｝；Do[k=1；而[PrimeQ[Prime[n]+2*k^2]，k++]；如果[k>10，AppendTo[lst，Prime[n]]]，{n，2，11*10^9}]；第一次
选择[Prime[Range[107669*10^5]]，AllTrue[#+{2，8，18，32，50，72，98，128，162200}，PrimeQ]&]（*需要Mathematica版本10或更高版本*）（*程序运行需要很长时间*）(*哈维·P·戴尔2021年1月24日*）
|
|
|
黄体脂酮素
|
（PARI）表示素数（n=2276241327599，k=1；while（isprime（n+2*k^2），k++）；（k>10）&打印1（n，“，”）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
