%I#5 2014年4月3日03:40:11
%S 0,1,1,2,2,4,5,7,10,14,19,24,35,43,61,74100127165207268330423,
%电话5286538221012124715351898229268222334324161502561097311,
%电话:88401057812680151571810221496256123040235957425645028859259
%N N的分区数,其中包含作为一个部分的不同部分的数量。
%对于n>=0,F a(n)+A23946(n)=A000041(n)。
%e a(9)对这14个分区进行计数:72、531、522、432、4311、3321、3222、32211、322111、22221、221111、2111111、1111111。
%tz=55;d[p_]:=d[p]=长度[删除重复项[p]];
%t t=表[Count[IntegerPartitions[n],p_/;成员Q[p,d[p]]],{n,0,z}]
%t(*A239945*)
%t表[PartitionsP[n]-t[[n+1]],{n,0,z}](*A239946*)
%Y参考A239946。
%K nonn,简单
%0、4
%2014年3月30日,金伯利百灵
|