%I#51 2021年1月19日21:54:49

%S 1,0,1,1,2,1,4,1,5,3,8,14,14,16,9,22,1,38,1,45,17,17,1,94,7102,30，

%电话：138,1218,2231,58298,21451,3491103644,4919,410052031257,7，

%电话：1784,2019933012441,103365,7037374964569,176252,236848

%N N的分区数，使得每对部件（如果有）都有一个公因数。

%对于n=0、31、37、41、43、46、47、49、51、52、53、55、56、57、58、59、61、62…，C a（n）与A018783（n）不同。

%C每对（可能相等的）零件都有一个公因数>1。这些隔墙被称为（成对）相交_Gus Wiseman_，2019年11月4日

%H Fausto A.C.Cariboni，n表，n=0..350的A（n）（Alois P.Heinz的术语0..250）

%H L.Naughton，G.Pfeiffer，<a href=“https://cs.uwaterloo.ca/journals/JIS/VOL16/Naughton/naughton2.html“>由对称群的子群模式实现的整数序列，J.Int.Seq.16（2013）#13.5.8

%F a（n>0）=A328673（n）-1.-_Gus Wiseman_，2019年11月4日

%e a（0）=1:[]；

%e a（4）=2:[2,2]，[4]；

%e a（9）=3:[3,3,3]，[3,6]，[9]；

%e a（31）=2:[6,10,15]，[31]；

%e a（41）=4:[6,10,10,15]，[6,15,20]，[6，14，21]，[41]。

%p b：=进程（n，j，s）局部ok，i；

%p如果n=0，则为1

%p elif j<2，然后为0

%p else ok:=真；

%p表示i在s中，而ok-do-ok:=evalb（igcd（i，j）<>1）od；

%p`if`（好，加上（b（n-j*k，j-1，[s[]，j]），k=1..n/j），0）+b（n，j-1）

%功率因数

%p端：

%p a:=n->b（n，n，[]）：

%p序列（a（n），n=0..62）；

%tb[n_，j_，s_]：=模块[{ok，i，is}，其中[n==0，1，j<2，0，True，ok=True；对于[is=1，is<=长度[s]&&ok，is++，i=s[is]]；ok=GCD[i，j]！=1]; 如果[ok，Sum[b[n-j*k，j-1，Append[s，j]]，{k，1，n/j}]，0]+b[n，j-1；a[n]：=b[n，n，{}]；表[a[n]，{n，0，62}]（*_Jean-François Alcover_，2013年12月26日，翻译自Maple*）

%t表[Length[Select[Integer Partitions[n]，And[And@@（GCD[##]>1&）@@@Select[Tuples[Union[#]，2]，LessEqual@@#&]]&]]，{n，0,20}]（*_Gus Wiseman_，2019年11月4日*）

%Y参考A018783。

%Y仅比较不同部件的版本是A328673。

%Y相对最好的情况是A202425。

%严格来说是A318717。

%Y非同构多集分区的版本是A319752。

%Y机顶盒系统的版本是A305843。

%Y参见A000837、A305148、A305854、A306006、A316476、A328672、A328867、A328688。

%K nonn公司

%0、5

%A _Alois P.Heinz，2011年11月29日