| 显示1-1个结果（共1个）。
第页1
a（n）是最小的素数，使得从6到2n的每个偶数都可以写成两个小于或等于a（n）的素数之和。
+10
1
3, 5, 5, 7, 7, 11, 11, 13, 13, 13, 13, 17, 17, 19, 19, 19, 19, 23, 23, 31, 31, 31, 31, 31, 31, 37, 37, 37, 37, 41, 41, 41, 41, 41, 41, 47, 47, 47, 47, 47, 47, 47, 47, 61, 61, 61, 61, 61, 61, 61, 61, 61, 67, 67, 67, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 83
例子
n=3，2*3=6=3+3。由于3是所需的最小素数，a（3）=3。
n=4，2*3=6=3+3，2*4=8=5+3，由于5是所需的最小素数，a（4）=5。
...
n=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。
MAPLE公司
f： =proc（m）局部p，p0；
p0：=米/2；如果p0：：即使如此，p0：=p0+1 fi；
对于p0乘以2的p，do如果是isprime（p）和isprim（m-p），则返回pfiod
结束过程：
R： =3:米：=3:
对于我来说，从8到200乘2 do
v： =f（i）；
如果v>m，则R:=R，v；m：=v
否则R:=R，m
fi（菲涅耳）
日期：
数学
a={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]；发现==0，追加到[a，NextPrime[Last[a]]]；最后[a]，{n，3，68}]
搜索在0.007秒内完成
| 