%I#4 2014年4月27日10:25:10
%S 0,0,0,1,2,4,4,7,9,13,14,22,26,36,40,54,66,85,99127148187221,
%电话27732339446456658059391126132015731832218325413004,
%电话:3504411147695614649875998803102561185313783158951842921250
%N分区数p是N的一部分,不同部分的数量是一部分,max(p)-min(p)是一部分。
%当n>=0时,F a(n)+A241388(n)+A241389(n)=A241391(n)。
%e a(9)对这9个分区进行计数:432、4311、3321、32211、321111、222211、222111、221111、21111111。
%tz=40;f[n_]:=f[n]=整数分区[n];d[p_]:=d[p]=长度[删除重复项[p]];
%t表格[计数[f[n],p_/;成员Q[p,d[p]]和成员Q[p,最大[p]-最小[p]]],{n,0,z}](*A241387*)
%t表格[Count[f[n],p_/!成员Q[p,d[p]]和成员Q[p,最大[p]-最小[p]]],{n,0,z}](*A241388*)
%t表格[计数[f[n],p_/;成员Q[p,d[p]]&&!成员Q[p,最大[p]-最小[p]]],{n,0,z}](*A241389*)
%t表格[Count[f[n],p_/!成员Q[p,d[p]]&&!成员Q[p,最大[p]-最小[p]]],{n,0,z}](*A241390*)
%t表格[计数[f[n],p_/;成员Q[p,d[p]]||成员Q[p,Max[p]-Min[p]],{n,0,z}](*A241391*)
%Y参见A241388、A241389、A241390和A241391。
%K nonn,简单
%O 0.6
%A_Clark Kimberling_,2014年4月21日
|