%I#12 2021年1月31日17:06:36
%S 0,0,1,1,1,1,2,2,2,2,3,4,4,3,6,4,6,6,9,5,8,7,7,7,7,10,6,11,6,10,
%电话:6,11,6,15,10,12,9,14,11,15,12,12,13,11,18,10,17,14,20,11,19,13,18,
%U 15,21,12,20,16,21,16,24,13,24,16,20,18,25,13,24,19,22,21,26,17,20,20
%N将N写成两个具有不同数量的素因子的正整数之和的方法的数量。
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%F a(n)=和{i=1..floor(n/2)}(1-[ω(i)=ω(n-i)]),其中ω是不同素因子的数量(A001221),[]是艾弗森括号。
%e a(13)=3;13=12+1=10+3=7+6和ω(12)>ω(1),ω(10)>Ω(3)以及ω(7)<ω(6)。
%pω:=n->nops(数量理论:-系数集(n)):
%p f:=进程(n)nops(选择(t->omega(t)<>omega(n-t),[$1..n/2]))结束进程:
%p映射(f,[1..100]美元);#_罗伯特·伊斯雷尔,2021年1月31日
%t表[1-KroneckerDelta[PrimeNu[i],PrimeNu[n-i]],{i,Floor[n/2]}],{n,100}]
%o(PARI)a(n)=总和(i=1,n\2,1-(ω(i)==ω(n-i)));\\_米歇尔·马库斯,2020年9月30日
%Y参考A001221,A333701。
%K nonn,看
%O 1,8型
%韦斯利·伊万·赫特,2020年9月30日
|