登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A240213 n的分片数p,使中值(p)<=重数(min(p))。 5
0、1、1、1、3、3、6、8、13、18、24、31、45、57、78、102、136、174、230、291、379、478、608、761、965、1196、1497、1852、2299、2822、3487、4258、5222、6350、7737、9370、11362、13687、16512、19825、23806、28460、34041、40552、48312、57365、68081、80578、95334 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,5个

链接

n=0..48的n,a(n)表。

公式

a(n)=A240212(n)+A240213(n) 对于n>=0。

a(n)+A240215(牛)=A000041号(n) 对于n>=0。

例子

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

数学

z=40;f[n_x]:=f[n]=整数部分[n];t1=表[Count[f[n],p_/;中值[p]<Count[p,Min[p]],{n,0,z}](*A240212*)

t2=表[Count[f[n],p_/;中值[p]<=计数[p,Min[p]]],{n,0,z}](*A240213*)

t3=表[Count[f[n],p_/;中值[p]==计数[p,Min[p]]],{n,0,z}](*A240214*)

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

t5=表[Count[f[n],p_/;中值[p]>=计数[p,Min[p]]],{n,0,z}](*A240216*)

交叉引用

囊性纤维变性。A240212,A240214,A240215,A240216,A000041号.

上下文顺序:A097307号 A323435飞机 A026804号*A205970型 A104715型 邮编:A164743

相邻序列:A240210 A240211 A240212*A240214 A240215 A240216

关键字

,容易的

作者

克拉克·金伯利2014年4月4日

状态

经核准的

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

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

上次修改日期:2021年4月13日15:23。包含342936个序列。(运行在oeis4上。)