OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A230129型 最长行程长度等于6的n阶排列数。
2, 24, 274, 3204, 39420, 514296, 7137818, 105318770, 1649355338, 27356466626, 479446719522, 8858271760146, 172151975433756, 3511580514677006, 75032190827549478, 1676210011258705592, 39082263260517298658, 949481770375318700914, 23998362106238648271276 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
6,1
链接
阿洛伊斯·海因茨,n=6..450时的n、a(n)表
MAPLE公司
g: =proc(u,o,t)选项记忆`如果`(u+o=0,1,
加上(g(o+j-1,u-j,2),j=1..u)+`如果`(t<6,
加(g(u+j-1,o-j,t+1),j=1..o),0))
结束时间:
b: =proc(u,o,t)选项记忆`如果`(t=6,g(u,o,t),
加(b(o+j-1,u-j,2),j=1..u)+
加(b(u+j-1,o-j,t+1),j=1..o))
结束时间:
a: =n->加(b(j-1,n-j,1),j=1..n):
seq(a(n),n=6..30);
数学
长度=6;
g[u_,o_,t_]:=g[u,o,t]=如果[u+o==0,1,总和[g[o+j-1,u-j,2],{j,1,u}]+如果[t<长度,总和[g[u+j-1、o-j,t+1],{j、1,o}],0]];
b[u_,o_,t_]:=b[u,o,t]=如果[t==长度,g[u,o,t],和[b[o+j-1,u-j,2],{j,1,u}]+和[b[u+j-1,o-j,t+1],{j、1,o}]];
a[n]:=总和[b[j-1,n-j,1],{j,1,n}];
表[a[n],{n,长度,30}](*Jean-François Alcover公司,2018年8月18日,之后阿洛伊斯·海因茨*)
交叉参考
第l列=第6列,共列A211318型.
对角线A010026号.
关键词
非n
作者
阿洛伊斯·海因茨2013年10月10日
状态
经核准的

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

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

上次修改时间:2024年6月8日15:59 EDT。包含373223个序列。(在oeis4上运行。)