搜索: 编号:a082078
|
|
|
|
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=素数[n]+素数[n+1]+素数[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->
总和(i)/7=i[4]),m->m[4]#穆尼鲁A阿西鲁2018年2月14日
(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
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.003秒内完成
|