%I#8 2015年10月12日04:04:35

%S 1,0,1,1,2,1,3,2,4,6,9,12,14,17,18,25,26,32,38,43,49,62,65,78，

%电话921031141421511752032292523023378422477524619661，

%电话：75884795810381204129714851626182919892285245927703035

%N N个分区的数量，使得（不同部分的数量）<最小部分。

%H Alois P.Heinz，n的表格，n=0..1000时的a（n）</a>

%F a（n）+A239952（n）=A000041（n），对于n>=0。

%e a（10）计算这6个分区：[10]、[7,3]、[6,4]、[5,5]、[4,3,3]，[2,2,2,2]。

%p b:=proc（n，i，d）选项记忆`if`（n=0，1，`if`（i<=d+1，0，

%p加（b（n-i*j，i-1，d+`如果`（j=0，0，1）），j=0..n/i））

%p端：

%p a:=n->b（n$2,0）：

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

%tz=50；d[p_]：=d[p]=长度[删除重复项[p]]；f[n_]：=f[n]=整数分区[n]；

%t表格[计数[f[n]，p_/；d[p]<最小值[p]]，{n，0，z}]（*A239948*）

%t表格[计数[f[n]，p_/；d[p]<=最小值[p]]，{n，0，z}]（*A239949*）

%t表格[计数[f[n]，p_/；d[p]==最小值[p]]，{n，0，z}]（*A239950*）

%t表格[计数[f[n]，p_/；d[p]>最小值[p]]，{n，0，z}]（*A239951*）

%t表格[计数[f[n]，p_/；d[p]>=最小值[p]]，{n，0，z}]（*A239952*）

%tb[n_，i_，d_]：=b[n，i，d]=如果[n==0，1，如果[i<=d+1，0，和[b[n-i*j，i-1，d+如果[j==0、0、1]]，{j，0，n/i}]]；a[n]：=b[n，n，0]；表[a[n]，{n，0，80}]（*_Jean-François Alcover_，2015年10月12日，在_Alois P.Heinz_*之后）

%Y参见A239949、A239950、A239951和A239952。

%K nonn，简单

%0、5

%2014年3月30日，金伯利百灵