感谢每一位在我们的年度募捐活动中捐款的人!要查看捐赠者列表或进行捐赠,请参见OEIS基金会主页。
1,2
形状序列A122454号是A000041号它计算数字分区。
n=1..56的n,a(n)表。
A122454号(n)=A098546号(n) 时代A036040型(n) 一。
A098546号(n) 开始1 2 1 3 3 1 4 6 6 4 1。。。
A036040型(n) 开始1 1 1 1 1 3 1 1 4 3 6 1。。。
所以三角形开始了:
1个;
2,1;
3、9、1;
4,24,18,24,1;
5,50,100,100,150,50,1;
6、90、225、150、300、1200、300、300、675、90、1;
7、147、441、735、735、3675、2450、3675、1225、7350、3675、735、2205、147、1;
sortAbrSteg:=proc(L1,L2)local i;如果nops(L1)<nops(L2)则返回(true);elif nops(L2)<nops(L1)则返回(false);否则对于从1到nops的i,如果op(i,L1)<op(i,L2),则返回(false);fi;od;RETURN(true);fi;结束:A098546号:=proc(n,k)局部prts,m;prts:=combinat[partition](n);prts:=sort(prts,sortAbrSteg);如果k<=nops(prts),则m:=nops(op(k,prts));二项式(n,m);否则0;fi;end:M3:=proc(L)局部n,k,an,result;n:=加法(i,i=L);结果:=阶乘(n);对于k从1到n的情况,an:=加法(1-min(abs(j-k),1),j=L);结果:=结果/(阶乘(k))^an/阶乘(an);od;结束:A036040型:=proc(n,k)局部prts,m;prts:=combinat[partition](n);prts:=sort(prts,sortAbrSteg);如果k<=nops(prts),则为M3(op(k,prts));否则为0;fi;结束:A122454号:=过程(n,k)A098546号(n,k)*A036040型从第1部分到第1部分:从第1部分到第1部分=A122454号(n,k);打印F(“%d”,a);od;od#R、 J.马萨2007年7月17日
囊性纤维变性。A122455号.
上下文顺序:A086606号 A076112号 A208744号*A189650型 A083782号 A076240型
相邻序列:A122451号 A122452型 A122453号*A122455号 A122456号 A122457号
容易的,不,塔夫
阿诺德2006年9月18日
更多条款来自R、 J.马萨2007年7月17日
经核准的