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

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

提示
(问候来自整数序列在线百科全书!)
A241831号 分区数p=[x(1),…,x(k)],其中x(1)>=x(2)>=。。。>=x(k),n的最大值(x(i)-x(i-1))>=p的个数。 5

%我

%S 0,0,0,0,1,1,3,3,6,8,12,15,23,27,38,48,64,78105127165202256311,

%电话:3934735887118751050128615371867222926871953838384544,

%美国电话:54276416762589811063712492147361726922029323715277923239137840

%N分区数p=[x(1),…,x(k)],其中x(1)>=x(2)>=。。。>=x(k),n的最大值(x(i)-x(i-1))>=p的个数。

%F a(n)=A241830(n)+A241832(n)。

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

%ea(6)计算这3个分区:51、42、411。

%t z=30;f[n_x]:=f[n]=整数部分[n];g[p_u]:=最大[-差异[p]]

%t表[Count[f[n],p/;g[p]<Length[p]],{n,0,z}](*A241828*)

%t表[Count[f[n],p逖g[p]<=长度[p]],{n,0,z}](*A241829*)

%t Table[Count[f[n],pΜg[p]==长度[p]],{n,0,z}](*A241830*)

%t Table[Count[f[n],p_6;g[p]>=长度[p]],{n,0,z}](*A241831*)

%t表[Count[f[n],p逖g[p]>长度[p]],{n,0,z}](*A241832*)

%参见A241828、A241829、A241830、A241832、A000041。

%不,别紧张

%0.7度

%阿尤克拉克金伯利,2014年4月30日

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

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

上次修改时间:美国东部时间2020年11月27日14:10。包含338683个序列。(运行在oeis4上。)