#来自在线整数序列百科全书的问候!http://oeis.org/; 搜索:id:A241811 展示1-1的1个1 ;%I A2418131 %S A2418131 0,0,0,0,0,0,0,1,1,1,3,3,3,6,8,12,15,23,27,27,38,48,64,64,7810512712712716520525311,1,;%T A24181313934345858588711887118711011011018671867222926868731953838384544,;%U A24181542764167625889811061249214724242424727272727271867186718672727272725868731953838384520293237152779232391,37840 %N A241831分区数p=[x(1),…,x(k)],其中x(1)>=x(2)>=。。。>以最大(x(i)-x(i-1))>=p的零件数量为目的。;%F A241831 a(n)=A241830(n)+A241832(n)。 %F A2418131 a(n)+A241828(n)=A000041(n)为n>=0。 %e A2418131 a(6)统计了这3个分区:51、42、411。;%t A241811 z=30;F[n n n]:=F[n]=整合者分区[n];g[p UU]:=max[[[n]=整合者分区[n];g[p UU]:=max[[[n];n];g[p UU]:=max[[n]-差异[p]] %t A241831表[Count[F[n],p_/;g[p]<长度[p]],{n,0,z}](*A241828*);%t A2418131表[计数[f[f[n],p p〈g[p]<=长度[p]],,{n,0,z}](*A241829*))10;%t A2418131表[计数[计数[f[n],p p:g[p]==长度[p]],{n,0,0,z}](*A2418130*)的;%t A2418131表[计数[f[n],p[n],p[p[p][p][=Length[p]],{n,0,z}](*A241831*) %t A241831表[Count[f[n],p/;g[p]>长度[p]],{n,0,z}](*A241832*) %Y A241831参见A241828、A241829、A241830、A241832、A000041。 %K A241831 nonn,easy %O A241831 0,7 %A A241831 %Y A241831 %Y A241831 内容可根据OEIS最终用户许可协议获得:http://OEIS.org/License