%I#25 2024年2月17日23:43:59
%S 1,1,1,1,0,1,1,1,0,1,1,1,0,1,0,0,1,1,1,1,1,1,00,0,1,0,01,1,0,0,
%温度0,2,1,0,0,0,1,0,1,1,0,1,1,0,1,1,1,2,1,1,0,1,0,0,0,1,1,0,1,0,
%U 0,0,1,6,1,0,1,1,0,0,1,2,1,0,1,01,0,00,01,1,0,1,0,1,1,1,0
%N的除数格的交替线性扩张数。
%对于超级大国,只有一种解决方案。对于素数签名为p1^2*p2的整数,只有一个解,对于p1^4*p2有两个解,一般来说,对于p1 ^(2k)*p2,有A000108(k)解_米奇·哈里斯,2006年4月27日
%H Alois P.Heinz,n的表格,n=1..10000的a(n)</a>
%H.T.Y.Chow、H.Eriksson、C.K.Fan,<a href=“http://www.combinatics.org/Volume_11/Abstracts/v11i2a3.html“>《国际象棋表》,《组合数学电子杂志》,第11卷(2),2004年。
%H.T.Y.Chow、H.Eriksson、C.K.Fan,<a href=“网址:http://www-math.mit.edu/~tchow/chesstalk.pdf“>国际象棋表和国际象棋问题,麻省理工学院组合数学研讨会幻灯片,2004年10月20日。
%H<a href=“/index/Eu#epf”>根据n的因子分解中的指数计算的序列的索引项</a>
%e换言之,n的除数的排列方式的数量,使得除数后面没有自己的除数,并且除数d_i、d_j、d_k等的排列方式使值bigomega(d_i)(参见A001222)、bigomeka(d_j)、bigamega(d_k)交替为偶数和奇数。例如,a(12)=1,在A114717所示的五种排列中,这里唯一允许的是1、2、4、3、6、12,A001222(1)=0,A00122(2)=1,A001225(4)=2,A00122。a(36)=2,因为36有两种溶液:1,2,4,3,6,12,9,18,36和1,3,9,2,6,18,4,12,36。
%p(数字理论):
%p b:=proc(s,t)选项记忆`如果`(nops(s)<1,1,则添加(
%p`if`(irem(bigomega(x),2)=1-t和nops(select(y->
%p irem(y,x)=0,s)=1,b(s减去{x},1-t),0),x=s)
%p端:
%p a:=proc(n)选项记住;局部l,m;
%pl:=排序(ifactors(n)[2],(x,y)->x[2]>y[2]);
%p m:=mul(ithprime(i)^l[i][2],i=1..nops(l));
%p b(除数(m)减去{1,m},irem(bigomega(m),2))
%p端:
%p序列(a(n),n=1..100);#_Alois P.Heinz,2016年2月26日
%t b[s_,t_]:=b[s,t]=如果[Length[s]<1,1,Sum[If[Mod[PrimeOmega[x],2]==1-t&&Length[选择[s,Mod[#,x]==0&]]==1,b[s~补码~{x},1-t],0],{x,s}]];a[n_]:=a[n]=模块[{l,m},l=Sort[FactorInteger[n],#1[[2]]>#2[2]]&];m=乘积[素数[i]^l[[i]][2],{i,1,长度[l]}];b[除数[m][[2;;-2]],Mod[原欧米茄[m],2]];表[a[n],{n,1100}](*_Jean-François Alcover_,2016年2月27日,在_Alois P.Heinz_*之后)
%Y a(n)<=A114717(n)。参见A119844、A119846、A119847、A119849。
%K nonn公司
%O 1,36号
%2006年6月4日,安蒂·卡图宁
|