%I#8 2019年10月27日05:00:20
%S 0,0,0,1,0,2,1,3,5,5,7,10,18,20,29,40,58,78111156218304429604,
%电话:859120917262423346249047000995314210270289794139159253,
%电话:8479912153917416224993135857751509073921063826152976622013823168565
%N项链成分的数量为N,没有部分循环后跟除数。
%C项链组合n是一个有限的正整数序列,与n相加,在其所有循环旋转中,n的字典序最小。
%C圆形意味着最后一部分后面是第一部分。
%H Andrew Howroyd,n的表,n=1..200的a(n)</a>
%F a(n)=A318729(n)-1。
%e a(5)=1至a(13)=18项链组合物(空列未显示):
%e(2,3)(2,5)(3,5)(2,7)(3,17)(2,9)(5,7)(4,9)
%e(3,4)(4,5)(4_6)(3,8)(2,3,7)(5,8)
%e(2,4.3)(2,3,5)(4,7)(2,7,3)(6,7)
%e(2,5,3)(5,6)(3,4,5)(2,11)
%e(2,3,2,3)(2,4,5)(3,5,4)(3,10)
%e(2,3,2,5)(2,4,7)
%e(2,3,4,3)(2,6,5)
%e(2,8,3)
%e(3,6,4)
%e(2,3,5,3)
%t颈部q[q_]:=数组[OrderedQ[{q,RotateRight[q,#]}]&,长度[q]-1,1,And];
%t表[Length[Select[Join@@Permutations/@Integer Partitions[n],neckQ[#]&&And@@Not/@Divisible@@@Partition[#,2,1,1]&]],{n,10}]
%o(PARI)
%o b(n,q,pred)={my(M=矩阵(n,n));对于(k=1,n,M[k,k]=pred(q,k);对于
%o序列(n)={my(v=总和(k=1,n,k*b(n,k,(i,j)->i%j<>0));向量(n,n,sumdiv(n,d,eulerphi(d)*v[n/d])/n)}\\ Andrew Howroyd_,2019年10月26日
%Y非项链型为A328598。
%Y带单件的版本是A318729。
%禁止倍数和除数的情况是A328601。
%Y非项链、非圆形版本为A328460。
%Y共素性(而非可分性)的版本是A328602。
%Y项链成分为A008965。
%没有部分后跟除数的Y分区是A328171。
%Y参见A032153、A167606、A318748、A328508、A328593、A32859、A328603、A328008、A328709。
%K nonn公司
%O 1,7型
%A _Gus Wiseman_,2019年10月25日
%E 2019年10月26日_Andrew Howroyd_的第a(26)条及以后条款
|