A098504-OEIS公司

A098504号

n的组成数，使得每个部分具有相同的多重性。

1, 1, 2, 4, 5, 6, 20, 14, 28, 49, 72, 66, 298, 134, 304, 646, 707, 618, 3794, 1178, 4856, 7926, 6300, 4758, 64004, 9267, 19624, 69346, 76148, 30462, 1491780, 55742, 294642, 1181578, 386820, 932804, 21400221, 315974, 1045372, 12081290, 66532116, 958266 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`0,3`
	链接	`阿洛伊斯·海因茨，n=0..1300时的n，a（n）表`
	配方奶粉	`G.f.：总和（Sum（（lk）/我^kx^（lk（k+1）/2）/乘积（1-x^。`
	例子	`a（6）=20，因为我们有6、15、51、24、42、33、123、132、213、231、312、321、222、1122、1212、1221、2112、2121、2211和111111。`
	MAPLE公司	`G： =总和（总和（（lk）/我^kx^（lk（k+1）/2）/乘积（1-x ^（lj），j=1..k），k=1..40）：Gser:=系列（G，x=0，55）：seq（系数（Gser，x ^n），n=1..46）#Emeric Deutsch公司2005年3月28日` `#第二个Maple项目：` b： =proc（n，i）选项记忆`如果`（n>i（i+1）/2，0，`if`（n=0，1，展开（b（n，i-1）+`if`（i>n，0，b（n-i，i-1，x））） `结束时间：` a： =n->`如果`（n=0，1，加（（p->add（coff（p，x，i）（i*m）/（m！）^i， `i=0..度（p））（b（n/m$2）），m=numtheory[除数]（n））：` `seq（a（n），n=0..70）#阿洛伊斯·海因茨2014年5月24日`
	数学	`b[n_，i_]：=b[n，i]=如果[n>i（i+1）/2，0，如果[n==0，1，展开[b[n、i-1]+如果[i>n，0，b[n-i，i-1]x]]]；a[n_]：=如果[n==0，1，Sum[Function[p，Sum[系数[p，x，i]（im）/米^i、 {i，0，指数[p，x]}]][b[n/m，n/m]]，{m，除数[n]}]]；表[a[n]，{n，0，70}](Jean-François Alcover公司2016年12月21日，之后阿洛伊斯·海因茨)`
	交叉参考	`囊性纤维变性。A047966美元,A032020型.` `上下文中的序列：A336129飞机 A008319号 A033311号A137653号 A021411号 A257433型` `相邻序列：A098501号 A098502号 A098503型A098505号 A098506号 A098507号`
	关键词	`非n,看`
	作者	`弗拉德塔·乔沃维奇2004年10月26日`
	扩展	`更多术语来自Emeric Deutsch公司2005年3月28日` `a（0）=1来自阿洛伊斯·海因茨2014年5月24日`
	状态	`经核准的`