提出
经核准的
编辑
b[n_，i_]：=b[n，i]=如果[n==0，1，如果[i<1，0，Sum[Expand[b[n-i*j，i-1]*如果[j>1，x^j，1]]，{j，0，n/i}]]；T[n_]：=函数[p，表[系数[p，x，i]，{i，0，n}][b[n，n]]；表[T[n]，{n，0，14}]//扁平(*Jean-François Alcover公司2016年1月23日之后阿洛伊斯·海因茨*)
检验过的
T（4,2）=2，因为每个分区[2,2]和[2,1,1]都有2个重复部分，而[4]、[3,1]、[1,1,1]有0或4个重复部分 部分。
1;
1,,0;
1,,0,,1;
2,,0,,0,,1;
2,,0,,2,,0,,1;
三,,0,,2,,1,,0,,1;
和{k>=0}}k*T（n，k）=A194452号（n） ●●●●。
Alois P.Heinz，<a href=“/A264405型/b264405.txt“>行n=0..200，扁平</a>
#第二个Maple项目：
b： =proc（n，i）选项记忆`如果`（n=0，1，`如果`（i<1，0，
加法（展开（b（n-i*j，i-1）*`如果`（j>1，x^j，1）），j=0..n/i））
结束时间：
T： =n->（p->seq（系数（p，x，i），i=0..n））（b（n$2））：
seq（T（n），n=0..14）#阿洛伊斯·海因茨2015年12月7日
囊性纤维变性。A000009号,,A000041号,,A194452号,,A264052型.
