OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A287146型 将n划分为不同部分的数目,使得任何部分与所有较小部分之和之间的绝对差值不大于1。 2
1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1, 2, 1, 3, 2, 3, 1, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 1, 3, 2, 3, 1, 4, 3, 5, 2, 5, 3, 4, 1, 3, 2, 3, 1, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 1, 3, 2, 3, 1, 4, 3, 5, 2, 5, 3, 4, 1, 5, 4, 7, 3, 8, 5, 7, 2 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
0,14
链接
阿洛伊斯·海因茨,n=0..16384时的n,a(n)表
公式
当n>0时,a(2^n)=0。
当n>=0时,a(2^n-1)=1。
例子
a(3)=1:21。
a(13)=2:64217321。
a(25)=3:(12)6421,(12)7321,(13)6321。
MAPLE公司
b: =proc(n,i)选项记忆`如果`(i*(i+1)/2<n,0,`如果`(n=0,1,
b(n,i-1)+`if`(i>n或abs(i-(n-i))>1,0,b(n-i,i-1
结束时间:
a: =n->b(n$2):
seq(a(n),n=0..120);
数学
b[n_,i_]:=b[n,i]=如果[i(i+1)/2<n,0,如果[n==0,1,b[n、i-1]+如果[i>n||Abs[i-(n-i)]>1,0,b[n-i,i-1]]];
a[n]:=b[n,n];
a/@范围[0,120](*Jean-François Alcover公司2020年12月11日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A000009号,A002487号,A287144型.
关键词
非n,
作者
阿洛伊斯·海因茨2017年5月20日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月28日10:20。包含372910个序列。(在oeis4上运行。)