%I#34 2018年7月31日07:22:54

%S 2,3,3,3,1,5,3,5,5,3，3,5,1,7,3,2,5,7,3，5,7,1,3,5，5,7，3,5，

%T 5,3,3,5,7,3,3,5,3,5,7,7,7,19,3,5,3，5,3,3,3,3,3,3,5,5,5,5,5,5,7,7,13,13,11,13,19,3,5,3,3,3，

%U 5,7,3,3,5,7,11,3,3,1,5,5,7、3,5,1,5,11,3,1,3,3、5,5,12,7

%N最小p，p，q都是素数，p+q=2n。

%C本质上与A002373相同，没有a（2）项_T.D.Noe_，2007年9月24日

%C a（n）=A171637（n，1）_Reinhard Zumkeller，2014年3月3日

%C猜想：a（n）~O（n^1/2）.-_乔恩·佩里（Jon Perry），2014年4月29日

%H H.J.Smith，n的表，a（n）表示n=2..20000</a>

%与哥德巴赫猜想相关的序列的索引条目</a>

%F a（n）=n-A047949（n）。-_Jason Kimberley，2012年10月9日

%t a[n_]：=对于[p=2，True，p=NextPrime[p]，如果[PrimeQ[2n-p]，返回[p]]]；

%t表[a[n]，{n，2103}]（*Jean-François Alcover_，2018年7月31日*）

%o（PARI）A020481（n）={局部（np）；np=1；while（！isprime（2*n-prime（np

%o（PARI）A020481（n）=forprime（p=1，n，isprime（2*n-p）&return（p））\\_M.F.Hasler_，2012年9月18日

%o（哈斯克尔）

%o a020481 n=头部[p|p<-a000040_list，a010051'（2*n-p）==1]

%o——Reinhard Zumkeller，2014年7月7日，2014年3月3日

%Y参考A020482。

%K nonn公司

%氧2,1

%A·热心的W·威尔逊_