A100953-OEIS公司

A100953号

将n划分为相对素数部分的次数，使得部分的多重性也相对素数。

1, 1, 0, 1, 2, 5, 5, 13, 14, 25, 28, 54, 54, 99, 105, 160, 192, 295, 315, 488, 546, 760, 890, 1253, 1404, 1945, 2234, 2953, 3459, 4563, 5186, 6840, 7909, 10029, 11716, 14843, 17123, 21635, 25035, 30981, 36098, 44581, 51370, 63259, 73223, 88739, 103048, 124752 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,5`
	链接	`阿洛伊斯·海因茨，n=0..10000时的n，a（n）表`
	配方奶粉	`Moebius变换A000837号.`
	MAPLE公司	`读取转换：a000837:=[]：b000837:=fopen（“b000837.txt”，read）：bfil:=readline（b000837）：而StringTools[WordCount]（bfil）>0执行b:=sscanf（bfill，“%d%d”）；a000837:=[操作（a000837），操作（2，b）]；bfil：=readline（b000837）；od：fclose（b000837）；a000837:=subsop（1=NULL，a000837）：a:=MOBIUS（a000837:n从1到120执行打印f（“%d，”，op（n，a））；日期：#R.J.马塔尔2008年3月12日` `#第二个Maple项目：` `with（numtheory）：with（组合）：` b： =proc（n）选项记忆`如果`（n=0，1，添加( `mobius（n/d）numpart（d），d=除数（n））` `结束时间：` a： =proc（n）选项记住`如果`（n=0，1，添加( `莫比乌斯（n/d）b（d），d=除数（n））` `结束时间：` `seq（a（n），n=0..60）#阿洛伊斯·海因茨2017年12月19日`
	数学	`表[Length[Select[Integer Partitions[n]，And[GCD@@#==1，GCD@@Length/@Split[#]==1]&]]，{n，20}](古斯·怀斯曼2017年12月19日）` `b[n_]：=b[n]=如果[n==0，1，总和[` `MoebiusMu[n/d]分区P[d]，{d，除数[n]}]]；` `a[n_]：=a[n]=如果[n==0，1，总和[` `MoebiusMu[n/d]b[d]，{d，除数[n]}]]；` `a/@范围[0，60](Jean-François Alcover公司2021年5月21日之后阿洛伊斯·海因茨)`
	交叉参考	`囊性纤维变性。A000740号,A000837号,A007916号,2011年2月16日,A296302型.` `上下文中的顺序：183719年 A239340型 A124201号A112835型 A206625型 A176168号` `相邻序列：A100950号 A100951号 A100952号A100954号 A100955号 A100956号`
	关键词	`容易的,非n`
	作者	`弗拉德塔·乔沃维奇2005年1月11日`
	扩展	`更多术语来自大卫·沃瑟曼和R.J.马塔尔2008年3月4日` `a（0）=1前面加阿洛伊斯·海因茨2017年12月19日`
	状态	`经核准的`