|
| |
|
| A229607型 |
| 数组：每行以最小素数开头，而不是前一行，每行中的每个素数p后面跟着最大素数<2*p。 |
|
4
|
|
|
|
2, 3, 11, 5, 19, 17, 7, 37, 31, 29, 13, 73, 61, 53, 41, 23, 139, 113, 103, 79, 47, 43, 277, 223, 199, 157, 89, 59, 83, 547, 443, 397, 313, 173, 113, 67, 163, 1093, 883, 787, 619, 337, 223, 131, 71, 317, 2179, 1759, 1571, 1237, 673, 443, 257, 139, 97, 631
(列表；桌子；图表；参考；听；历史；文本；内部格式)
|
|
|
|
偏移
|
1,1
|
|
|
评论
|
推测：（第1行）=A006992号，（第1列）=A104272号对于每一行r（k），存在r（k）/2^k的极限。对于第1行到第4行，各自的限值为0.303976…、4.249137…、6.857407…、12.235210。
|
|
|
链接
|
|
|
|
例子
|
西北角：
2, 3, 5, 7, 13, 23, 43, 83, ...
11, 19, 37, 73, 139, 277, 547, 1093, ...
17, 31, 61, 113, 223, 443, 883, 1759, ...
29, 53, 103, 199, 397, 787, 1571, 3137, ...
41, 79, 157, 313, 619, 1237, 2473, 4943, ...
47, 89, 173, 337, 673, 1327, 2647, 5281, ...
|
|
|
数学
|
seqL=14；arr1[1]={2}；Do[AppendTo[arr1[1]，NextPrime[2*Last[arr1[1]]，-1]]，｛seqL｝]；Do[tmp=并集[Flatten[Map[ar1，Range[z]]]；arr1[z]＝{Prime[NestWhile[#+1&，1，PrimePi[tmp[#]]-#==0&]]}；Do[AppendTo[arr1[z]，NextPrime[2*Last[arr1[z]]，-1]]，{seqL}]，{z，2，12}]；m=地图[arr1，范围[12]；m//表格
t=表[m[[n-k+1]][[k]]，{n，12}，{k，n，1，-1}]//扁平(*彼得·J·C·摩西2013年9月26日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
