%我
%S 0,0,0,1,0,1,1,0,1,0,01,0,0、1,0,1,0、0,1,1,0,1,1,1,2,0,0_1,0,0,1,2,0,0,
%温度0,0,0,1,0,2,0,00,1,2,0,3,0,1,3,0,12,0,4,0,0,1,2,
%U 0,4,0,0,1,4,0,1,4,4,0 0,0,10,4,1,4,10,01,4,0,0,1,3,0,5,0,0
%N表示N为模3全等的两个素数之和的次数。
%e22可以用两种方式写成模3的两个同余素数之和:22=5+17(5=17mod3)和22=11+11(加法顺序被忽略)。因此a(22)=2。
%t f[n_]:=模块[{a,d,i},a={};u=楼层[n/2];对于[i=1,i<=u,i++,如果[PrimeQ[i]&&PrimeQ[n-i]&&Mod[i,3]!=Mod[n-i,3],a=附加[a,{n,i,n-i}]];a] ;表[长度[f[n]],{n,1200}]
%Y参见A074169、A078647和A078648。
%K nonn公司
%O 1,22号机组
%A _Joseph L.Pe,2002年12月13日
|