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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A137782号 a(n)=置换数(p(1),p(2)。。。,(1,2,…,n)的p(n)),其中,对于每个k(2<=k<=n),(p(k)-p(k-1))的符号等于(p(n+2-k)-p(n+1-k)的符号。
1, 1, 2, 2, 12, 24, 200, 540, 6160, 21616, 306432, 1310880, 22338624, 113017696, 2245983168, 13108918368, 297761967360, 1969736890624, 50332737128960, 372125016868608, 10565549532009472, 86337114225206784, 2696451226217269248, 24132714802787013632 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,3
评论
下降集对函数f(x)=n-x不变的n阶置换数-马克斯·阿列克塞耶夫2009年5月6日
链接
阿洛伊斯·海因茨,n=0..190时的n,a(n)表
配方奶粉
a(2n)=A000984号(n)*A060350型(n) ●●●●-马克斯·阿列克塞耶夫2009年4月23日
例子
考虑置换(n=7):3,6,7,5,1,2,4。
相邻术语之间差异的符号形成序列:++--++,具有反射对称性。因此,当n=7时,这个排列就被计算在内。
MAPLE公司
b: =proc(u,o,h)选项记忆`如果`(u+o=0,1,
加(加(b(u-j,o+j-1,h+i-1),i=1..u+o-h),j=1..u)+
加(加(b(u+j-1,o-j,h-i),i=1..h),j=1..o))
结束时间:
a: =proc(n)选项记忆;局部r;
`如果`(irem(n,2,'r')=0,b(0,r$2)*二项式(n,r),
加法(加法(二项式(j-1,i)*二项式*
b(r-i,i,n-j-r+i),i=0..分钟(j-1,r),j=1..分钟)
结束时间:
seq(a(n),n=0..30)#阿洛伊斯·海因茨2015年9月15日
数学
b[u_,o_,h]:=b[u,o,h]=如果[u+o==0,1,总和[Sum[b[u-j,o+j-1,h+i-1],{i,1,u+o-h}],{j,1,u}]+总和[b[u+j-1,o-j,h-i],{i,1,h}];
a[n_]:=a[n]=模[{r=商[n,2]},如果[Mod[n,2]==0,b[0,r,r]*二项式[n,r],和[Sum[二项式[j-1,i]*二项式[n-j,r-i]*b[r-i,i,n-j-r+i],{i,0,Min[j-1,r]}],{j,1,n}]];
表[a[n],{n,0,30}](*让-弗朗索瓦·奥尔科弗2019年5月13日之后阿洛伊斯·海因茨*)
黄体脂酮素
(PARI){a(n)=局部(r,u,c,t);r=0;对于vec(v=向量(n-1,i,[2*i==n,1]),u=和(i=1,#v,v[i]);c=和(i=1,(n-1)\2,!v[i]&&!v[n-i])\prod(i=2,#t,(t[i]-t[i-1])!)\(n-t[#t])!!);(-1)^(n+1)*r}\\马克斯·阿列克塞耶夫2009年5月6日
交叉参考
囊性纤维变性。A137783号.
关键词
非n
作者
勒罗伊·奎特2008年2月10日
扩展
前8项由计算奥利维尔·杰拉德
由扩展马克斯·阿列克塞耶夫2009年5月6日
a(0),a(22)来自阿洛伊斯·海因茨2015年7月2日
a(23)来自阿洛伊斯·海因茨2015年9月15日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月28日22:13。包含372921个序列。(在oeis4上运行。)