|
| |
|
| A160920型 |
| 同时是2级、3级和4级平衡素数的素数。 |
|
1
|
|
|
|
236429, 1108477, 1829801, 2073263, 2191513, 2192789, 3236267, 3990031, 4248947, 4485683, 4986061, 6869969, 7711079, 8473811, 8480911, 9282173, 9327277, 9350123, 9547303, 9730649, 12077909, 12993917, 13165441, 13398611, 14129761, 14785907
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
MAPLE公司
|
isBalPr:=进程（p，o）局部r，s，i；r：=p；如果isprime（p），则s:=p；对于i从1到o做r：=下一素数（r）；s：=s+r；结束do:r:=p；对于i从1到o做r：=预素数（r）；s：=s+r；末端do:s:=s/（2*o+1）；如果s=p，则为真；否则为假；结束条件：；否则为假；结束条件：；结束进程：
isA160920：=过程（p）是BalPr（p，2），是BalP（p，3），也是BalPR（p，4）；结束进程：
对于从10开始的i，做p:=ithprime（i）；如果是A160920（p），则打印f（“%d，\n”，p）；结束条件：；结束do:#R.J.马塔尔2010年12月15日
|
|
|
数学
|
PrimeNext[n_]：=模块[｛k｝，k=n+1；While[！PrimeQ[k]，k++]；k] ；PrimePrev[n_]：=模块[{k}，k=n-1；而[！PrimeQ[k]，k--]；k] ；lst={}；Do[p=素数[n]；a1=PrimePrev[p]；a2=PrimePrev[a1]；a3=PrimePrev[a2]；a4=PrimePrev[a3]；a5=PrimePrev[a4]；b1=PrimeNext[p]；b2=PrimeNext[b1]；b3=PrimeNext[b2]；b4=PrimeNext[b3]；b5=PrimeNext[b4]；如果[（a1+a2+a3+a4+b1+b2+b3+b4）/8==p&&（a1+2a3+a3+b1+b2+b3）/6==p&（a1+a2+b1+b2）/4==p，追加到[lst，p]]，{n，2*9！}]；第一次
|
|
|
程序
|
（间隙）P:=已过滤（[1,3..2*10^7+1]，IsPrime）；；
a： =交集（列表（[2,3,4]，b->列表（已过滤（列表（[0..长度（P）-（2*b+1）]，k->列表（[1..2*b+1]，j->P[j+k]）），i->总和（i）/（2*b+1）=i[b+1]），m->m[b+1））#穆尼鲁·A·阿西鲁2018年4月8日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
