登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

提示
(问候来自整数序列在线百科全书!)
A122454号 有形状的三角形A000041号按顺序定义A098546号时间序列A036040型. 2

%我

%第1,2,1,3,9,1,4,24,18,24,1,5,50100150,50,1,6,90225150301200,

%电话:300300675,90,1,71474417357353675245036751225733503675735,

%传真:2205147,1,822478415689801568940815680392029400

%N由序列A098546乘以序列A036040定义的形状为A000041的三角形。

%a100041是a00054型分区的计数。

%F A122454(n)=A098546(n)乘以A036040(n)。

%e A098546(n)开始1 2 1 3 3 1 4 6 6 4 1。。。

%e A036040(n)开始1 1 1 1 3 1 1 4 3 6 1。。。

%所以三角形开始了:

%e 1;

%e2,1;

%e 3、9、1;

%e 4,24,18,24,1;

%e 5,50,100,100,150,50,1;

%e 6,90,225,150,300,1200,300,300,675,90,1;

%e 7,147,441,735,735,3675,2450,3675,1225,7350,3675,735,2205,147,1;

%p sortAbrSteg:=proc(L1,L2)local i;如果nops(L1)<nops(L2)则返回(true);elif nops(L2)<nops(L1)则返回(false);否则,对于从1到nops的i(L1),如果op(i,L1)<op(i,L2),则返回(false);fi;od;RETURN(true);fi;结束:A098546:=proc(n,k)本地prts,m;prts:=combat[partition](n);prts:=sort(prts,sortAbrSteg);如果k<=nops(prts)然后m:=nops(op(k,prts));二项式(n,m);其他的0;fi;结束:M3:=proc(L)局部n,k,an,an,resu;n:=add(i,i=L);结果:=析因(n);对于k从1到n的k,做一个:=加(1分钟(abs(j-k),1),j=L);结果:=结果:=reso/(factorial(k))^an/析因(an);od;结束:a36040:=proc(n,k)本地prts,m;prts:=合合合合(1分钟(1-min(j-k),1),j=L);结果:=结果:=reso////(k))^在[分区](n);prts:=sort(prts,sortAbrSteg);如果k<=nops(prts),则为M3(op(k,prts));否则为0;fi;结束:a122544:=proc(n,k)A098546(n,k)*a03640(n,k);end:从1到combinat[numberpart](n)do a:=A122454(n,k);printf(“%d,”,a);od;od;#u R.J.Mathar_2007年7月17日

%Y比照A122455。

%别紧张,别这样

%O 1,2号

%阿尔福德·阿诺德,2006年9月18日

%更多条款请参见2007年7月17日马萨

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

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

上次修改日期:美国东部时间2020年12月2日19:12。包含338891个序列。(运行在oeis4上。)