|
| |
| |
|
|
|
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).
三阶平衡素数不一定是一阶平衡素数(A006562号)或者两个(A082077型)，等等。[拼写错误由扎克·塞多夫，2008年7月23日]
|
|
|
链接
|
亚伦·托彭斯，n=1..1000的n，a（n）表
|
|
|
例子
|
p=53=（41+43+47+53+59+61+67）/7=371/7，即算术平均值。
|
|
|
枫木
|
P： =proc（q）局部n；对于n从3到q do
如果（ITH素数（n-3）+ITH素数（n-2）+ITH素数（n-1）+ITH素数（n+2）+ITH素数（n+3））/6=ITH素数（n），则打印（ITH素数（n））；fi；od；end:P（10^6）#保罗P.熔岩2014年3月17日
|
|
|
数学
|
Do[s3=素数[n]+素数[n+1]+素数[n+2]；s5=素数[n-1]+s3+素数[n+3]；s7=素数[n-2]+s5+素数[n+4]；若[等于[s7/7，素数[n+1]]，则打印[Prime[n+1]]，{n，3，5000}]
（*第二个项目：*）
使用[{k=3}，选择[mapindex[{Prime[First@@2+k]，#1}&，Mean/@Partition[Prime@Range[10^3]，2k+1，1]]，SameQ@@@&][[All，1]]](*迈克尔·德维列格2018年2月15日*）
|
|
|
黄体脂酮素
|
（间隙）P:=过滤（[1..10000]，IsPrime）；；
a： =列表（已过滤（列表（[0..1000]，k->列表（[4..10]，j->P[j-3+k]），i->
和（i）/7=i[4]），m->m[4]）#阿西鲁2018年2月14日
（PARI）isok（p）={if（i素数（p），k=primepi（p）；如果（k>3，和（i=k-3，k+3，素数（i））==7*p；）；}\\米歇尔·马库斯2018年3月7日
|
|
|
交叉引用
|
囊性纤维变性。A006562号,A082077型,A082079号,A0967年,A096698号,A096699号,A096700台,A096701号,A096702号,A096703号,A096704号.
囊性纤维变性。A096693号,A082080型,A081415,A051795号,A006562号.
上下文顺序：A180456 A154409号 A033213*A107175号 A244270 A244271
相邻序列：A082075型 A082076型 A082077型*A082079号 A082080型 A082081型
|
|
|
关键字
|
不
|
|
|
作者
|
拉博斯埃勒默2003年4月8日
|
|
|
状态
|
经核准的
|
| |
|
|
