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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A114716号 一个3 X 2 X n格的线性扩展数。 4
1, 5, 2452, 4877756, 20071150430, 129586764260850, 1138355914222027660, 12513844842339741519760, 163186564770917385358723138, 2434438822161210367337209525489, 40488679486377745566571570522228550, 736610570835499716578578298705683198672 (列表图表参考历史文本内部格式)
抵消
0,2
参考文献
Stanley,R.,枚举组合数学,第2卷,命题7.10.3和第1卷,分配格中的第3.5节链。
链接
阿洛伊斯·海因茨,n=0..45时的n,a(n)表
MAPLE公司
b: =proc(u,v,w,x,y,z)选项记忆;
`如果`({u,v,w,x,y,z}={0},1,
`如果`(u>v且u>x,b(u-1,v,w,x,y,z),0)+
`如果`(v>w且v>y,b(u,v-1,w,x,y,z),0)+
`如果`(w>z,b(u,v,w-1,x,y,z),0)+
`如果`(x>y,b(u,v,w,x-1,y,z),0)+
`如果`(y>z,b(u,v,w,x,y-1,z),0)+
`如果`(z>0,b(u,v,w,x,y,z-1),0))
结束时间:
a: =n->b(n$6):
seq(a(n),n=0..12)#阿洛伊斯·海因茨2012年4月26日
数学
b[u,v,w,x,y,z]:=b[u、v、w、x、y、z]=
如果[Union[{u,v,w,x,y,z}]=={0},1,
如果[u>v&&u>x,b[u-1,v,w,x,y,z],0]+
如果[v>w&&v>y,b[u,v-1,w,x,y,z],0]+
如果[w>z,b[u,v,w-1,x,y,z],0]+
如果[x>y,b[u,v,w,x-1,y,z],0]+
如果[y>z,b[u,v,w,x,y-1,z],0]+
如果[z>0,b[u,v,w,x,y,z-1],0]];
a[n]:=b[n,n,n;表[a[n],{n,0,12}](*Jean-François Alcover公司2015年5月29日,之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A114717号.
关键词
非n,坚硬的
作者
米奇·哈里斯2005年12月27日;2006年5月25日更正
扩展
a(6)-a(11)来自阿洛伊斯·海因茨2012年4月26日
状态
经核准的

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

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

上次修改时间:2024年4月19日23:40 EDT。包含371798个序列。(在oeis4上运行。)