%I#39 2020年11月24日17:16:15

%S 0,0,1,0,0,1,1,1,2,2,3,4,5,6,7,9,10,12,15,17,20,24,28,32,38,44,51，

%电话：59，68，78，91103118136155176201228259294332375425478538，

%电话：6076817648589611075120313434314991673186320732308256428473163504

%N将N划分为不同部分的分区数，最少为2。

%C带有此序列号的旧条目是A071569的副本。

%C a（n），n>2是[0,0,1,1]与周期[0,1]相连的Euler变换_乔治·菲舍尔（Georg Fischer），2020年8月15日

%H Alois P.Heinz，<a href=“/A096749/b096749.txt”>n表，n=0..5000的a（n）</a>

%F G.F.：x^2*产品{j>=3}（1+x^j）。-_R.J.Mathar，2008年7月31日

%F a（n）=A025148（n-2），n>1_R.J.Mathar，2008年9月30日

%F G.F.：和{k>=1}x ^（k*（k+3）/2）/产品{j=1..k-1}（1-x^j）.-_伊利亚·古特科夫斯基，2020年11月24日

%p b:=proc（n，i）选项记忆；

%p `if`（n=0，1，`如果`（（i-2）*（i+3）/2<n，0，

%p加（b（n-i*j，i-1），j=0..分钟（1，n/i））

%p端：

%p a：=n->`如果`（n<2，0，b（n-2$2））：

%p序列（a（n），n=0..60）；#_Alois P.Heinz，2014年2月7日

%p#使用函数EULER from Transforms（请参阅页面底部的链接）。

%p[0,0,1，op（EULER（[0,0,1,1，seq（irem（n，2），n=1..57）]）；#_Peter Luschny_，2020年8月19日

%tb[n_，i_]：=b[n，i]=如果[n==0，1，如果[（i-2）*（i+3）/2<n，0，和[b[n-i*j，i-1]，{j，0，最小值[1，n/i]}]]；a[n_]：=如果[n<2，0，b[n-2，n-2]；表[a[n]，{n，0，60}]（*_Jean-François Alcover_，2014年10月13日，在_Alois P.Heinz_*之后）

%t连接[{0}，表[Count[Last/@Select[整数分区@n，删除重复项[#]==#&]，2]，{n，66}]]（*_Robert Price_，2020年6月13日*）

%Y参考A025147、A071569。

%Y参考A096765（最小值=1）、A022824（3）、A028825（4）、A022526（5）、A022.827（6）、A02.2828（7）、A0122829（8）、A0.2830（9）和A022831（10）。

%K nonn公司

%0、10

%A _N.J.A.Sloane，2008年9月28日