搜索： a079018-编号：a079019
|
| |
|
|
A079022号
|
| 假设p和q=p+2*n是素数。定义（p，q）的差分模式为p到q范围内素数的连续差分。 |
|
+10
1
|
|
|
|
1, 2, 3, 5, 5, 14, 15, 17, 49, 56, 51, 175, 150, 148, 666, 581, 561, 1922, 1449
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
例子
|
n=4，d=8：有五种不同的模式：[8]、[6,2]、[2,6]、[2,4,2]和[2,2,4]。最后一个模式是单数，带有素数4元组{p=3,5,7,11=q}。
|
|
|
数学
|
t[x_]：=表[Length[FactorInteger[x+j]]，{j，0，d}]；p[x_]：=压扁[位置[表[PrimeQ[x+2*j]，{j，0，d/2}]，真]]；dp[x_]：=删除[RotateLeft[p[x]]-p[x]，-1]；k=0；d=12；{n1=2，n2=2000，h0=PrimePi[n1]，h=PrimePi[n2]}；t1={}；Do[s=素数[n]；如果[PrimeQ[s+d]，k=k+1；打印[{k，s，pt=2*dp[s]}]；t1=并集[t1，{2*dp[s]}]，1]，{n，h0，h}]；{d，n1，n2，Length[t1]，t1}（*用于d=12的程序；如果将t1={}替换为已获得的集合，则分区列表是可扩展的*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,更多
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
