%I#11 2024年10月10日08:18:42

%S 3,5,5,7,7,11,11,13,13,13，13,17,17,19,19,19，19,23,31,31,31.31,31，

%电话：31,37,37,37、37、41、41、41,41、41和47、47、47和47、47,47、67、61、61、61,61，

%U 61,61,61.61,61.67,67,67,73,73,73，73,73

%N a（N）是最小的素数，因此从6到2n的每个偶数都可以写成两个小于或等于a（N）的素数之和。

%C名称中的两个素数可以相等。

%H Lei Zhou，n的表，a（n）表示n=3..5881</a>

%F a（n）=最大{3<=i<=n}A234345（i）。-罗贝尔特·以色列，2024年10月10日

%e n=3，2*3=6=3+3。由于3是所需的最小素数，a（3）=3。

%e n=4，2*3=6=3+3，2*4=8=5+3，由于5是所需的最小素数，a（4）=5。

%e。..

%en=14，我们需要考虑从6到2*14=28的偶数，同时尝试最小化用于分解此类偶数的较大素数。 6=3+3; 8=5+3; 10=5+5; 12=7+5; 14=7+7; 16=11+5; 18=11+7; 20=13+7; 22=11+11; 24=13+11; 26=13+13; 28=17+11.使用的最大质数是17。因此a（14）=17。

%p f：=proc（m）局部p，p0；

%p0：=m/2；如果p0：：即使如此，p0：=p0+1 fi；

%p从p0中为p乘以2 do如果是isprime（p）和isprim（m-p），则返回pfiod

%p端程序：

%p R：=3:m：=3:

%p表示i从8到200乘2 do

%p v：=f（i）；

%p如果v>m，则R:=R，v；m：=v

%p其他R:=R，m

%功率因数

%日期：

%p R；#_Robert Israel，2024年10月10日

%tα={2}；表[found=0；而[la=长度[a]；xx=1；Do[yy=0；Do[If[MemberQ[a，i*2-a[[j]]]，yy=1]，{j，1，la}]；如果[yy==0，xx=0]，{i，3，n}]；如果[xx==1，则找到=1]；found==0，AppendTo[a，NextPrime[Last[a]]]；最后[a]，{n，3，68}]

%Y参见A000040、A002375、A234345、A237628、A237638、A240708。

%K nonn公司

%O 3、1

%A _雷州_，2014年5月6日

%E姓名由_Robert Israel_更正，2024年10月10日