A200976-OEIS公司

A200976号

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

1, 0, 1, 1, 2, 1, 4, 1, 5, 3, 8, 1, 14, 1, 16, 9, 22, 1, 38, 1, 45, 17, 57, 1, 94, 7, 102, 30, 138, 1, 218, 2, 231, 58, 298, 21, 451, 3, 491, 103, 644, 4, 919, 4, 1005, 203, 1257, 7, 1784, 20, 1993, 301, 2441, 10, 3365, 70, 3737, 496, 4569, 17, 6252, 23, 6848 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,5`
	评论	`a（n）不同于A018783号（n） n=0、31、37、41、43、46、47、49、51、52、53、55、56、57、58、59、61、62。` `每对（可能相等的）零件都有一个公因数>1。这些分区被称为（成对）相交-古斯·怀斯曼2019年11月4日`
	链接	`福斯托·A·C·卡里博尼，n=0..350时的n，a（n）表（Alois P.Heinz的条款0..250）` `L.Naughton、G.Pfeiffer、，用对称群的子群模式实现整数序列，J.国际顺序。16 (2013) #13.5.8`
	配方奶粉	`a（n>0）=A328673型（n） -1-古斯·怀斯曼2019年11月4日`
	示例	`a（0）=1:[]；` `a（4）=2:[2,2]，[4]；` `a（9）=3:[3,3,3]，[3,6]，[9]；` `a（31）=2:[6,10,15]，[31]；` `a（41）=4:[6,10,10,15]，[6,15,20]，[6，14，21]，[41]。`
	MAPLE公司	`b： =proc（n，j，s）局部ok，i；` `如果n=0，则为1` `elif j<2，然后为0` `否则ok:=true；` `对于以s表示的i，ok表示ok：=evalb（igcd（i，j）<>1）od；` `如果`（ok，加上（b（n-j*k，j-1，[s[]，j]），k=1..n/j），0）+b（n，j-1 `fi（菲涅耳）` `结束时间：` `a： =n->b（n，n，[]）：` `seq（a（n），n=0..62）；`
	数学	`b[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-jk，j-1，Append[s，j]]，{k，1，n/j}]，0]+b[n，j-1，s]]]；a[n]：=b[n，n，{}]；表[a[n]，{n，0，62}](Jean-François Alcover公司，2013年12月26日，翻译自枫叶）` `表[Length[Select[Integer Partitions[n]，And[And@@（GCD[##]>1&）@@@Select[Tuples[Union[#]，2]，LessEqual@@#&]]&]]，{n，0，20}](古斯·怀斯曼2019年11月4日*）`
	交叉参考	`囊性纤维变性。A018783号.` `仅比较不同部分的版本为A328673型.` `相对主要的情况是A202425型.` `严格的情况是A318717型.` `非同构多集分区的版本为A319752型.` `set-systems的版本是邮编：305843.` `囊性纤维变性。A000837号,A305148型,A305854型,A306006型,A316476型,A328672型,A328867型,A328868型.` `上下文中的序列：2008年7月11日 A339619型 A018783号A328187型 A331885型 A298971型` `相邻序列：A200973型 A200974号 A200975型A200977号 A200978型 A200979号`
	关键词	`非n`
	作者	`阿洛伊斯·海因茨2011年11月29日`
	状态	`已批准`