%I#12 2022年11月2日20:22:01
%S 1,0,0,00,0,1,0,0,0,1,0,1,0,0、1,0,1、0,0和0,0,
%T 1,1,1,1,0,0,0,1,0,0,0,0_0,0,1,0,1,0,0,1,1,0,1,0,1,0,0,
%U 1,0,0,0,1,0,0,0,1,0,1,0,0
%N将N分解为无平方半素数的次数。n的素因子的多集划分为严格对的多集数。
%H Antti Karttunen,n的表,n=1..100000的a(n)</a>
%H<a href=“/index/Eu#epf”>根据n的因式分解中的指数计算序列的索引项</a>
%F a(A002110(n))=A123023(n).-_Antti Karttunen,2022年11月2日
%e将a(4620)=6分解为无平方半素数:
%e 4620=(6*10*77)
%e 4620=(6*14*55)
%e 4620=(6*22*35)
%e 4620=(10*14*33)
%e 4620=(10*21*22)
%e 4620=(14*15*22)
%e a(4620)=6个多集分区成严格对:
%电子{{1,2},{1,3},}4,5}}
%e{{1,2}、{1,4}、}3,5}}
%e{{1,2},{1,5},}3,4}}
%e{{1,3}、{1,4}和{2,5}}
%e{{1,3}、{2,4}和{1,5}}
%e{{1,4}、{2,3}和{1,5}}
%e将a(69300)=10因子分解为方折射半素数:
%e 69300=(6*6*35*55)
%e 69300=(6*10*15*77)
%e 69300=(6*10*21*55)
%e 69300=(6*10*33*35)
%e 69300=(6*14*15*55)
%e 69300=(6*15*22*35)
%e 69300=(10*10*21*33)
%e 69300=(10*14*15*33)
%e 69300=(10*15*21*22)
%e 69300=(14*15*15*22)
%e a(69300)=10个多集分区成严格的对:
%电子{{1,2},{1,2{3,4},}3,5}}
%e{{1,2},{1,3},}2,3}和{4,5}}
%电子{{1,2},{1,3},2,4},3,5}}
%e{{1,2},{1,3},[2,5},[3,4}}
%e{{1,2},{1,4},[2,3},[3,5}}
%e{{1,2},{2,3},}1,5},[3,4}}
%e{{1,3}、{1,3{、{2,4}、}2,5}}
%e{{1,3},{1,4},}2,3}和{2,5}}
%电子{{1,3},{2,3}
%e{{1,4},{2,3},}2,3},{1,5}}。
%e将a(210)=3分解为无平方半素数:210=(6*35)=(10*21)=(14*15)_Antti Karttunen,2022年11月2日
%t bepfacs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[bepfacs[n/d],Min@@#>=d&]],{d,选择[Rest[Divisors[n]],SquareFreeQ[#]&&PrimeOmega[#]=2&]}]];
%t表格[长度[bepfacs[n]],{n,100}]
%o(PARI)A320656(n,m=n)=如果(1==n,1,my(s=0);对于div(n,d,如果((d>1)&&(d<=m)&&无平方(d)&&2==大ω(d),s+=A320656(n/d,d));(s) );\\_Antti Karttunen,2022年11月2日
%Y参见A001055、A002110、A006881、A079275、A007716、A00771、A045778、A123023、A318871、A318953、A320462、A320655、A320658、A320659。
%K nonn公司
%O 1210号
%A _Gus Wiseman_,2018年10月18日
%E数据段扩展至a(120),第二偏移量由_Antti Karttunen添加,2022年11月2日
|