%I#5 2014年4月12日16:24:14
%S 0,1,1,3,3,6,8,13,18,24,31,45,57,78102136174230291379478608,
%电话:7619651196149718522299282234874258522263507737937011362,
%电话:136871651219825238062846034041405524831257365680818057895334
%N N的分区数p,使得中值(p)<=多重性(min(p))。
%当n>=0时,F a(n)=A240212(n)+A240213(n)。
%F a(n)+A240215(n)=A000041(n),对于n>=0。
%e a(6)计算这13个分区:611、5111、422、4211、41111、3311、32111、311111、2222、222111、221111、2111111、1111111。
%tz=40;f[n_]:=f[n]=整数分区[n];t1=表格[计数[f[n],p_/;中位数[p]<计数[p,最小值[p]]],{n,0,z}](*A240212*)
%t t2=表格[计数[f[n],p_/;中位数[p]<=计数[p,最小值[p]]],{n,0,z}](*A240213*)
%t t3=表格[计数[f[n],p_/;中位数[p]==计数[p,最小值[p]]],{n,0,z}](*A240214*)
%t t4=表[Count[f[n],p_/;中位数[p]>计数[p,最小值[p]]],{n,0,z}](*A240215*)
%t t5=表格[计数[f[n],p_/;中位数[p]>=计数[p,最小值[p]]],{n,0,z}](*A240216*)
%Y参见A240212、A240214、A240211、A240.216、A000041。
%K nonn,简单
%0、5
%A_Clark Kimberling_,2014年4月4日
|