提出

经核准的

编辑

提出

（*第二个节目：*）

多项式[n_，k_List]：=n/次数@@（k！）；

g[l_List]：=与[{n=Total[l]}，如果[n==0，1，Sum[MoebiusMu[j]*多项式[n/j，l/j]，{j，除数[GCD@@l]}]/n]]；

b[n_，i_，l_List]：=如果[n==0||i==1，如果[g[Append[l，n]]==1，1，0]，和[b[n-i*j，i-1，Append[1，j]]，{j，0，n/i}]]；

a[n]：=b[n，n，{}]；

数组[a，30](*Jean-François Alcover公司2021年5月20日之后阿洛伊斯·海因茨*)

经核准的

编辑

编辑

经核准的

with（组合）：with（数字理论）：

g： =l->（n->`如果`（n=0，1，add（mobius（j）*多项式（n/j，

（l/j）[]），j=除数（igcd（l[]））/n））（加上（i，i=l））：

b： =（n，i，l）->`如果`（n=0或i=1，`如果'（g（[l[]，n]）=1，1，0），

添加（b（n-i*j，i-1，[l[]，j]），j=0..n/i））：

a： =n->b（n$2，[]）：

seq（a（n），n=1..30）#阿洛伊斯·海因茨2018年2月9日

经核准的

编辑

编辑

经核准的

非n,更多,新的

1, 1, 2, 3, 6, 7, 11, 12, 15, 19, 22, 22, 29, 32, 32, 38, 42, 44, 49, 51, 54, 63, 63, 64, 71, 79, 76, 84, 87, 90, 96, 101, 101, 113, 108, 115, 122, 131, 125, 134, 138, 144, 147, 155, 150, 169, 163, 168, 173, 185, 180, 194,191,200,198,211,209,227,218,224,231,246

a（23）-a(5262)来自阿洛伊斯·海因茨2018年2月9日

1、1、2、3、6、7、11、12、15、19、22、22、29、32、32、38、42、44、49、51、54,63, 63,64,71,79,76,84,87,90,96,101,101,113,108,115,122,131,125,134,138,144,147,155,150,169,163,168,173,185,180,194

a（23）-a（52）来自阿洛伊斯·海因茨2018年2月9日

经核准的

编辑

提出

经核准的