1,1

6个素数在其“邻域”中的算术平均值；不与“三重平衡素数”混淆A081415）

三阶的平衡素数不一定是一阶平衡的。A000 6562或两个（A082077等。扎克谢迪夫7月23日2008

Aaron Toponcen，a（n）n＝1…1000的表

p＝53＝（41＋43＋47＋53＋59＋61＋67）/7＝371/7，即它是算术平均值。

P=＝Pro（q）局部n；n为3到q

如果（IthPrime（n-3）+ IthPrime（n-2）+ IthPrime（n-1）+ IthPrime（n+ 1）+ IthPrime（n+ 2）+ iStPy（n+ 3））/6＝IthPrime（n），然后打印（IthPrime（n））；Fi；Od；结尾：p（10 ^ 6）；保罗·拉瓦3月17日2014

D[S3=素数[n] +素数[n+1] +素数[n+1]；S5=素数[n-1 ] +s3+素数[n+2]；S7=素数[n-2 ] +s5+素数[n+4 ]；如果[相等[s7/7，素数[n+1 ] ]，打印[Prime [n+1 ] ]，{n，3, 5000 }]

（*第二程序：*）

用[{K＝3 } ]，选择[ MpTraceTope[ {Prime（第一@α2 +K），1 }，平均/@分区[PrimeReal[ 10 ^ 3 ]，2 k+1, 1 ] ]，SAMEQ @ @γ]和[[ALL，1 ] ]米迦勒·德利格勒2月15日2018＊）

（GAP）P＝＝滤波（〔1…10000〕，ISHEP）；

A: =列表（筛选）（列表（0…1000），K->列表（[4…10），J-> P[J3+K]），I- >

和（I）/ 7＝I〔4〕，M-＞M〔4〕；阿尼鲁2月14日2018

（PARI）IsOK（p）＝{If（IsPrime（p），k= PrimePi（p））；If（k＞3，和（i＝K-3，K+ 3，Prime（i））＝＝7＊p；；）；米歇尔马库斯07三月2018

囊性纤维变性。A000 6562，A082077，A082079，A09697，A096998，A09699，A0967，A096701，A096702，A096703，A096704.

囊性纤维变性。A096963，A082080，A081415，A051795，A000 6562.

语境中的顺序：A180566 A154409 A033 213*A107175 A244270 A244171

相邻序列：A082075 A082076 A082077*A082079 A082080 A082081A

诺恩

拉博斯元素，APR 08 2003

经核准的