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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A238638型 帕斯卡三角形第n行在2^n分区的数学顺序列表中的位置。
1, 2, 4, 14, 109, 3366, 380480, 592178710, 12245355432908, 42590813279958575804, 35428820136077436448479258280, 643572551892460566707053818908283349242945, 1088540944742787295982636155758383327725184898133092177544054 (列表图表参考文献历史文本内部格式)
抵消
0,2
链接
阿洛伊斯·海因茨,n=0..14时的n,a(n)表
Manfred Scheucher,C代码
例子
按照Mathematica的顺序,4的分区是4、31、22、211、111。a(2)=4是211的位置,作为一个分区,它相当于帕斯卡三角形的第2行:1 2 1(其中最上面的一行被视为第0行)。
MAPLE公司
p: =(n,k)->二项式(n,iquo(2*n-k+1,2)):
g: =(n,k,i)->`如果`(n=0,1,g(n-p(k,i-1),k,i-1)
+添加(b(n-j,j),j=p(k,i-1)+1..分钟(n,p(k(i))):
b: =proc(n,i)选项记忆`如果`(n=0,1,
`如果`(i<1,0,b(n,i-1)+`如果`(i>n,0,b(n-i,i)))
结束时间:
a: =n->(m->加(b(m-j,min(j,m-j)),j=p(n$2)+1..m)
+g(m-p(n$2,n$2))(2^n):
seq(a(n),n=0..10)#阿洛伊斯·海因茨2015年6月3日
数学
r[n_]:=反向[Sort[表[二项式[n,k],{k,0,n}]];扁平[Table[Position[Integer Partitions[2^n],r[n]],{n,0,6}]]
(*第二个节目:*)
$RecursionLimit=2000;
p[n_,k_]:=二项式[n,商[2*n-k+1,2];
g[n_,k_,i_]:=如果[n==0,1,g[n-p[k,i-1],k,i-1]+和[b[n-j,j],{j,p[k、i-1]+1,最小值[n,p[k,i]]}];
b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,b[n、i-1]+如果[i>n,0,b[n-i,i]]];
a[n]:=函数[m,和[b[m-j,Min[j,m-j]],{j,p[n,n]+1,m}]+g[m-p[n、n],n、n]][2^n];
表[a[n],{n,0,10}](*Jean-François Alcover公司2016年8月30日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A007318号,A080577号(Mathematica排序),A238639型,A238640型.
关键字
非n
作者
克拉克·金伯利2014年3月4日
扩展
a(7)来自曼弗雷德·舒彻2015年5月29日
a(8)-a(12)来自阿洛伊斯·海因茨2015年6月3日
状态
经核准的

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

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

上次修改时间:美国东部时间2024年4月24日00:30。包含371917个序列。(在oeis4上运行。)