%I#4 2014年5月6日15:07:20
%S 1,1,2,3,4,6,8,12,16,22,30,41,54,74,97128167219280363462590,
%电话:7469441182148518482299284335154318530564824962311688,
%电话:1413917093205882476929713356024253750769604397186585265101039
%N分区数p=[x(1),…,x(k)],其中x(1x(k),n的最大值(x(i)-x(i-1))<p的零件数。
%C对于n的分区[n],“max(x(i)-x(i-1))”(在Mathematica程序中)解释为0。
%F a(n)=A241826(n)-A241825(n)。
%F a(n)+A241823(n)+A241825(n)=A000041(n),对于n>=0。
%e a(6)统计这8个分区:6、33、321、3111、222、2211、21111、111111。
%tz=30;f[n_]:=f[n]=整数分区[n];g[p_]:=最大[-差异[p]]
%t表格[计数[f[n],p_/;g[p]<长度[p]],{n,0,z}](*A241828*)
%t表格[计数[f[n],p_/;g[p]<=长度[p]],{n,0,z}](*A241829*)
%t表格[计数[f[n],p_/;g[p]==长度[p]],{n,0,z}](*A241830*)
%t表格[计数[f[n],p_/;g[p]>=长度[p]],{n,0,z}](*A241831*)
%t表格[计数[f[n],p_/;g[p]>长度[p]],{n,0,z}](*A241832*)
%Y参见A241829、A241830、A24183、A24182、A000041。
%K nonn,简单
%0、3
%A_Clark Kimberling_,2014年4月30日
|