%I#5 2014年5月6日15:08:02
%S 0,0,0,1,3,3,6,7,12,14,22,27,37,46,63,76101124160196250,
%电话:3023824635746969385510262551503182321782626312337494447,
%电话:53056274745887901040512231144221690919871232292721731742
%N分区数p=[x(1),…,x(k)],其中x(1x(k),n的最大值(x(i)-x(i-1))>p的零件数。
%F a(n)=A241831(n)-A241830(n)。
%F a(n)+A241828(n)+A241830(n)=A000041(n),对于n>=0。
%e a(6)计算这个分区:51。
%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参见A241828、A241829、A241830、A24183、A000041。
%K nonn,简单
%O 0.8
%A_Clark Kimberling_,2014年4月30日
|