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

 

标志

年终呼吁:请向OEIS基金会捐款支持OEI的持续开发和维护。我们已经59年了,我们有超过358000个序列,我们已经跨越了10300条引文(通常说“感谢OEI的发现”)。

其他给予方式
提示
(问候来自整数序列在线百科全书!)
甲238638 Pascal三角形第n行在Mathematica中的位置。
1、2、4、14、109、3366、380480、592178710、12245355432908、42590813279958575804、35428820136077436448479258280、643572551892460566770538189082833349242945、1088540944742787298263615558383327725184898133092177544054 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,2个

链接

阿洛伊斯·P·海因茨,n=0..14的n,a(n)表

曼弗雷德·舍切尔,C代码

例子

按Mathematica顺序,4的分区是4,31,22,211,111。a(2)=4是211的位置,作为一个分区,它相当于帕斯卡三角形的第2行:1 2 1(其中最上面的一行被计算为第0行)。

枫木

p: =(n,k)->二项式(n,iqo(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..min(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):

顺序(a(n),n=0..10)#海因茨2015年6月3日

数学

r[n_u]:=反向[排序[表[二项式[n,k],{k,0,n}]]];展平[Table[Position[IntegerPartitions[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,Min[n,p[k,i]]]];

b[n_u,i_u]:=b[n,i]=如果[n==0,1,如果[i<1,0,b[n,i-1]+如果[i>n,0,b[n-i,i]]];

a[n_u]:=函数[m,Sum[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}](*让·弗朗索瓦·阿尔科弗2016年8月30日,之后海因茨*)

交叉引用

囊性纤维变性。A007318型,A080577号(Mathematica排序),A238639号,A238640.

上下文顺序:A245079号 A167008号 A329234型*A240973号 A102449号 A193520型

相邻序列:邮编:A238635 邮编:A238636 邮编:A238637*A238639号 A238640 A238641号

关键字

作者

克拉克·金伯利2014年3月4日

扩展

a(7)来自曼弗雷德·舍切尔2015年5月29日

a(8)-a(12)来自海因茨2015年6月3日

状态

经核准的

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

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

上次修改时间:2022年11月27日19:23。包含358406个序列。(运行在oeis4上。)