%I#7 2014年9月27日04:58:57

%S 0,1,1,2,3,2,5,5,6,7,12,11,16,16,23,27,33,35,47,52,65,75,88101121，

%电话：139164190219249294334384435045776597468519711097，

%电话：12421409158517902023227125572873322136124049452150545651

%N将N的p划分为不同部分的数量，不包括max（p）-min（p）。

%F a（n）+A240852（n）=A000009（n），对于n>=0。

%e a（10）将10的所有10个分区计算为不同的部分，541、532、4321除外，因此a（10。

%tz=40；f[n_]：=f[n]=选择[Integer Partitions[n]，Max[Length/@Split@#]==1&]；表[计数[f[n]，p_/；成员Q[p，Max[p]-Min[p]]]，｛n，0，z｝]（*A240852*）

%t表格[Count[f[n]，p_/！成员Q[p，最大[p]-最小[p]]]，{n，0，z}]（*A240858*）

%Y参考A240852，A000009。

%K nonn，简单

%0、5

%2014年4月14日，金伯利百灵