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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A050344号 用3级括号将n划分为不同部分的分区数。
1, 1, 1, 5, 11, 25, 60, 141, 321, 742, 1688, 3810, 8580, 19225, 42844, 95156, 210480, 463866, 1018957, 2231114, 4870400, 10601805, 23015117, 49833471, 107636878, 231940988, 498671281, 1069826434, 2290402343, 4893782240, 10436263572, 22214850439, 47202869437 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,4
链接
阿洛伊斯·海因茨,n=0..1000时的n,a(n)表
N.J.A.斯隆,变换
配方奶粉
的加权变换A050343号.
例子
4 = (((4))) = (((3)))+(((1))) = (((3))+((1))) = ((3)+(1)) = ((3+1)) = ((2+1))+((1)) = ((2+1)+(1)).
MAPLE公司
g: =proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
g(n,i-1)+`if`(i>n,0,g(n-i,i-1
结束时间:
h: =proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
加法(二项式(g(i,i),j)*h(n-i*j,i-1),j=0..n/i))
结束时间:
f: =proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
加法(二项式(h(i,i),j)*f(n-i*j,i-1),j=0..n/i))
结束时间:
b: =proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
加法(二项式(f(i,i),j)*b(n-i*j,i-1),j=0..n/i))
结束时间:
a: =n->b(n,n):
seq(a(n),n=0..50)#阿洛伊斯·海因茨2013年5月19日
数学
g[n_,i_]:=g[n,i]=如果[n==0,1,如果[i<1,0,g[n、i-1]+如果[i>n,0,g[n-i,i-1]]];
h[n_,i_]:=h[n,i]=如果[n==0,1,如果[i<1,0,和[二项式[g[i,i],j]*h[n-i*j,i-1],{j,0,n/i}]];
f[n_,i_]:=f[n,i]=如果[n==0,1,如果[i<1,0,和[二项式[h[i,i],j]*f[n-i*j,i-1],{j,0,n/i}]];
b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,和[二项式[f[i,i],j]*b[n-i*j,i-1],{j,0,n/i}]];
a[n]:=b[n,n];
表[a[n],{n,0,50}](*Jean-François Alcover公司2018年6月11日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A050342美元-A050350型.
关键词
非n
作者
克里斯蒂安·鲍尔1999年10月15日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月22日05:36。包含373565个序列。(在oeis4上运行。)