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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A241826号 分区数p=[x(1),…,x(k)],其中x(1)>=x(2)>=…>=x(k),n的min(x(i)-x(i-1))>=p的不同部分的数量。 6
1, 1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 7, 7, 9, 10, 12, 13, 16, 17, 20, 22, 25, 27, 31, 33, 37, 40, 45, 48, 54, 58, 65, 70, 78, 84, 94, 101, 112, 121, 134, 144, 159, 171, 188, 202, 221, 237, 259, 277, 301, 322, 349, 372, 402, 429, 462, 492, 529, 563, 605, 643 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,5
评论
对于n的分区[n],“min(x(i)-x(i-1))”(在Mathematica程序中)被解释为n。
链接
公式
a(n)=A241825号(n)+A241827号(n) ●●●●。
a(n)+A241823号(n)=A000041号(n) 对于n>=0。
例子
a(6)统计这3个分区:6、51、42。
数学
z=30;f[n_]:=f[n]=整数分区[n];d[p_]:=d[p]=长度[删除重复项[p]];g1[p_]:=最小[-差异[p]]
表[Count[f[n],p_/;g1[p]<d[p]],{n,0,z}](*A241823号*)
表[计数[f[n],p_/;g1[p]<=d[p]],{n,0,z}](*A241824号*)
表[计数[f[n],p_/;g1[p]=d[p]],{n,0,z}](*A241825号*)
表[计数[f[n],p_/;g1[p]>=d[p]],{n,0,z}](*A241826号*)
表[Count[f[n],p_/;g1[p]>d[p]],{n,0,z}](*A241827号*)
交叉参考
关键词
非n,容易的
作者
克拉克·金伯利2014年4月30日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月23日08:39。包含373629个序列。(在oeis4上运行。)