%我
%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日
|