%I#19 2020年8月3日15:35:47

%S 1,4,8,12,24,5710515033064566694511551770178529253255，

%电话：34655145546057756930829510605113401365010151720518480，

%电话：1963521945279303003038115427354504548405176553130

%N个数是比以前任何数都多的不同双素数对的平均数。

%C设T（n）是平均数为n的双素数对（即素数p，其中p+2或p-2也是素数）。这些是T（n。

%H N.J.A.Sloane，转换（RECORDS转换返回高水位线及其出现的位置）。

%e1不是任何一对孪生素数的平均值。4是一对孪生素数的平均值：3和5。8是两对孪生素数的平均值：5和11，以及3和13。（注意，每对孪生素数之间的差异不一定是2。然而，这对中的两个成员都是孪生素数，即素数p，使得p+2或p-2也是素数。他们的双胞胎不是这对双胞胎的一部分这一事实并不重要。）

%t m=10^4；tp=选择[Range[3，m，2]，PrimeQ[#]&&Or@@PrimeQ[#+{-2，2}]&]；f[n_]：=模块[｛k=长度@IntegerPartitions[n，｛2｝，tp]]｝，如果[MemberQ[tp，n/2]，k-1，k]]；s={}；fm=0；Do[f1=f[n]；如果[f1>fm，fm=f1；AppendTo[s，n]]，{n，2，m/2，2}]；前置[s/2，1]（*_Amiram Eldar_，2020年7月11日*）

%Y在这些高水位标记处获得的数值见A335993。

%Y参考A001097、A053033。

%K nonn公司

%O 1,2号机组

%A _P.Michael Kielstra，2020年7月4日