%I#21 2014年6月24日01:08:24

%S 1,4,8,12,18,24,30,39,42,45,57,72,60,84,90117123144120105162，

%电话150180237165264285195231240285255336396378438357，

%电话：399345551931550446539048045462450567717420495651540615

%N最小数m，使得2m可以用N种方式精确地表示为两个不同素数的和。

%C设f（x）=A061357（x）是素数p<x，使得2x-p也是素数。a（n）是最小的正整数x，使得f（x）=n。

%或者，最小数m，使得m可以用n种方式精确地表示为两个不同素数的平均值。Cf.A061357=n可以表示为两个不同素数的平均数的方式数，A061357=偶数整数2n可以写成所有大于6的偶数整数的两个素数之和的方式数_扎克·塞多夫，2006年9月8日

%C n的什么值是a（n）>a（n+1）？

%H Reinhard Zumkeller，n表，n=0..1000时的a（n）</a>

%F对于n>7 n*log（n）*log。lim n->infinity a（n）/n/log（n）/log_Benoit Cloitre_，2002年8月11日

%e a（1）=4，因为8=3+5即8可以精确地表示为两个不同素数的和，

%e a（2）=8，因为16=3+13=5+11（2路），

%e a（3）=12，因为24=5+17=7+17=11+17（3种方式），

%e a（4）=18，因为36=5+31=7+29=13+23=17+19（4路），等等。

%e从第三学期12开始，所有学期都是3的倍数。

%t f[x_]：=长度[Select[2x-（Prime/@Range[PrimePi[x-1]]），PrimeQ]]；对于[x=1，x<1000，x++，fx=f[x]；如果[a[fx]>=0，则为Null，Null，a[fx]=x]]；a/@范围[0，60]

%o（哈斯克尔）

%o导入数据。列表（元素索引）

%o导入数据。也许（来自Just）

%o a072511=（+1）。来自Just。（`elemIndex`a061357_list）

%o——Reinhard Zumkeller，2012年11月10日

%Y参见A061357、A061357。

%K nonn公司

%0、2

%A _Amarnath Murthy，2002年7月24日

%E编辑：Dean Hickerson，2002年8月7日

%E条目由N.J.A.Sloane修订，2006年9月12日