%我

%S 0,0,0,1,0,1,1,0,0,1,0,0,1,1,0,1,0,0,1,0,2,0,0,1,2,0,2,0,1,1,0,3，

%T 0,0,0,2,0,2,0,0,1,2,0,3,0,0,0,1,3,0,0,1,2,0,4,0,0,0,1,2,4,0,0,0,2，

%U 0,4,0,0,1,4,0,4,0,0,4,0,4,0,4,0,1,4,0,0,1,3,0,5,0,0,0,0,5,0,0,5,0,0,1,4,0

%N表示为模3同余的两个素数之和的表示数。

%e 22可以用两种方式写成模3的两个全等素数之和：22=5+17（5=17模3）和22=11+11（忽略加法的顺序）。因此a（22）=2。

%tf[n_u]：=模块[{a，d，i}，a={}；u=Floor[n/2]；对于[i=1，i<=u，i++，如果[PrimeQ[i]&&PrimeQ[n-i]&&Mod[i，3]！=Mod[n-i，3]，a=Append[a，{n，i，n-i}]]]；a] ；表[长度[f[n]]，{n，1200}]

%Y比照A074169、A078647、A078648。

%不知道

%O 1,22

%A峎Joseph L.Pe嫒，2002年12月13日