检验过的
经核准的
提出
编辑
b[n_,i_,p_,f_,g_]:=b[n,i,p,f,g]=如果[f~交集~g!={},0,
如果[n==0,p!,如果[i<1,0,总和[b[n-i*j,i-1,p+j,
如果[j==0,f,联合@附加[f,i]],
如果[j==0,g,联合@附加[g,j]]/j!,{j,0,n/i}]]];
a[n]:=b[n,n,0,{},{}];
表[a[n],{n,0,38}](*Jean-François Alcover公司2022年4月13日之后阿洛伊斯·海因茨*)
囊性纤维变性。A114639号,A336031型.
一
n的组成数,使得部件集和部件多重性集不相交。
1,0,2,2,2,4,6,6,14, 34, 79, 159, 227,429,727,1146,1999,3238,5018,8976,14977,24768,38400,70678,152535,295493,617675,1404099,3023086,6685876,14230031,30218806,62175519,127820798,257285277,516574751,1021334631,2009999405,3917878730
0,1三
b: =proc(n,i,p,f,g)选项记忆`如果`(f与g<>{}相交,0,
`如果`(n=0,p!,`如果`(i<1,0,加上(b(n-i*j,i-1,p+j,`如果`(j=0,
f、 {f[],i}),`if`(j=0,g,{g[],j})/j!,j=0..n/i)))
结束时间:
a: =n->b(n$2,0,{}$2):
seq(a(n),n=0..32);
分配给Alois P.Heinz
14、34、79、159、227
0,1
囊性纤维变性。A114639号.
分配
非n
阿洛伊斯·海因茨2020年7月7日
回收利用