|
| |
| |
| |
|
|
|
抵消
|
1,2
|
|
|
评论
|
平衡素数p_n的平均数似乎在32个平衡素数中的第85个素数439个达到最大值。
|
|
|
链接
|
|
|
|
数学
|
f[n_]：=f[n]=块[{c=0，k=1，p=Prime[n]，s=Plus@@表[Prime[i]，{i，n-1，n+1}]}，而[k！=n-1，如果[s==（2k+1）p，返回[1]；k++；s=s+素数[n-k]+素数[n+k]]；0]; f[1]＝0；做[f[n]，{n，10000}]；s=素数[Select[Range[10000]，f[#]==1&]]；表[长度[Select[s，#<10^n&]]，{n，5}]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
