登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A240213型 n的分区数p,使得中位数(p)<=多重性(min(p))。 5

%I#5 2014年4月12日16:24:14

%S 0,1,1,3,3,6,8,13,18,24,31,45,57,78102136174230291379478608,

%电话:7619651196149718522299282234874258522263507737937011362,

%电话:136871651219825238062846034041405524831257365680818057895334

%N N的分区数p,使得中值(p)<=多重性(min(p))。

%当n>=0时,F a(n)=A240212(n)+A240213(n)。

%F a(n)+A240215(n)=A000041(n),对于n>=0。

%e a(6)计算这13个分区:611、5111、422、4211、41111、3311、32111、311111、2222、222111、221111、2111111、1111111。

%tz=40;f[n_]:=f[n]=整数分区[n];t1=表格[计数[f[n],p_/;中位数[p]<计数[p,最小值[p]]],{n,0,z}](*A240212*)

%t t2=表格[计数[f[n],p_/;中位数[p]<=计数[p,最小值[p]]],{n,0,z}](*A240213*)

%t t3=表格[计数[f[n],p_/;中位数[p]==计数[p,最小值[p]]],{n,0,z}](*A240214*)

%t t4=表[Count[f[n],p_/;中位数[p]>计数[p,最小值[p]]],{n,0,z}](*A240215*)

%t t5=表格[计数[f[n],p_/;中位数[p]>=计数[p,最小值[p]]],{n,0,z}](*A240216*)

%Y参见A240212、A240214、A240211、A240.216、A000041。

%K nonn,简单

%0、5

%A_Clark Kimberling_,2014年4月4日

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年3月28日13:42 EDT。包含371254个序列。(在oeis4上运行。)