|
| |
| |
|
|
|
17, 53, 157, 173, 193, 229, 349, 439, 607, 659, 701, 709, 977, 1153, 1187, 1301, 1619, 2281, 2287, 2293, 2671, 2819, 2843, 3067, 3313, 3539, 3673, 3727, 3833, 4013, 4051, 4517, 4951, 5101, 5897, 6079, 6203, 6211, 6323, 6679, 6869, 7321, 7589, 7643, 7907
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
6个素数在其“邻域”中的算术平均值；不要与“三重平衡素数”混淆(A081415号).
|
|
|
链接
|
|
|
|
示例
|
p=53=（41+43+47+53+59+61+67）/7=371/7，即算术平均值。
|
|
|
数学
|
Do[s3=Prime[n]+Prime[n+1]+Prime[n+2]；s5=素数[n-1]+s3+素数[n+3]；s7=素数[n-2]+s5+素数[n+4]；如果[Equal[s7/7，质数[n+1]]，打印[Prime[n+1]]，{n，3，5000}]
（*第二个节目：*）
使用[{k=3}，选择[MapIndexed[{Prime[First@#2+k]，#1}&，Mean/@Partition[Prime@Range[10^3]，2k+1，1]]，SameQ@@#&][[All，1]]](*迈克尔·德弗利格2018年2月15日*）
选择[Partition[Prime[Range[1500]]，7，1]，Mean[#]==#[[4]]&][[All，4]](*哈维·P·戴尔2022年7月1日*）
|
|
|
黄体脂酮素
|
（间隙）P:=已过滤（[1..10000]，IsPrime）；；
a： =列表（已过滤（列表（[0..1000]，k->列表（[4..10]，j->P[j-3+k]）），i->
（PARI）isok（p）={if（isprime（p），k=primepi（p）；如果（k>3，sum（i=k-3，k+3，prime（i））==7*p；）；）\\米歇尔·马库斯，2018年3月7日
|
|
|
交叉参考
|
囊性纤维变性。A006562号,A082077号,A082079号,A096697号,A096698号,A096699美元,A096700型,A096701号,A096702号,A096703号,A096704号.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
