%我#16 2022年9月8日08:45:35

%S 130849830424923042702744531031032157225224468798854266292，

%电话：141208620182316522237416370357080022448436322611641188，

%电话：699458412761126028774997368794065968836452962152155929449589421009194618158193594017632555621871007372

%N数k，使得k，k+210*1，k+21*2，k+210*3，k+21*4是双素数对的平均值。

%e 1308498和1308708、1308918、1309128、1309338是双素数的平均值。

%e 3042492和304270230429123043122是孪生素数的平均值。

%t q=210；lst={}；执行[If[PrimeQ[n-1]&&PrimeQ[n+1]&&PrimeQ[n+q*1-1]&&PremeQ[n+q*1+1]&&PrimeQ[n+q*2-1]&&TrimeQ[n+q*2+1]&＆PrimeQ[n+q*3-1]&&PrineQ[n+q*3+1]&&PrimeQ[n+q*4-1]&&&Prime q[n+q*4+1]，AppendTo[l，n]，{n，10^8}]；第一次

%t选择[Range[55*10^6]，AllTrue[{#-1，#+1，#+209，#+211，#+419，#+421，#+629，#+631，#+839，#+841}，PrimeQ]&]（*程序使用Mathematica版本10*中的AllTrue函数）（*Harvey P.Dale_，2017年8月8日*）

%o（岩浆）[1..55000000]中的k:k |对于[0210420630840]中的所有{m:m | IsPrime（k+m-1）和IsPrime[k+m+1）}]；//_Marius A.Burtea，2020年1月13日

%Y参见A001097、A001359、A006512、A014574。

%K nonn公司

%O 1,1号机组

%A _弗拉迪米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基（Joseph Stephan Orlovsky），2008年8月20日

%E编辑：N.J.A.Sloane_，2008年8月24日

%E a（9）-a（25），来自阿米拉姆·埃尔达尔，2020年1月13日