登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A119842号 n的除数格的交替线性扩张数。 13

%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日,安蒂·卡图宁

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索引擎|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月1日11:48。包含372170个序列。(在oeis4上运行。)