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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A130644号 没有奇数圈的2n度置换的数目,并且对于每k个2k大小的圈数是奇数(或零)。 2
1, 1, 6, 225, 8400, 760725, 91725480, 15563633085, 3381661483200, 1015992072520425, 360153767651277600, 160068908768727783825, 84298688029883001074400, 53051020433282263735468125, 38316864396320965168213500000, 32660810942813910822645908353125 (列表;图表;参考;;历史;文本;内部格式)
抵消
0.3
链接
阿洛伊斯·海因茨,n=0..220时的n,a(n)表
公式
例如:产品_{k>0}(1+sinh(x^(2*k)/(2*k))。
示例
a(2)=6,因为我们有(1234)、(1243)、(1324)、(1342)、(1423)和(1432)。
MAPLE公司
g: =乘积(1+sinh(x^(2*k)/(2*k)),k=1..50):gser:=系列(g,x=0,44):seq(阶乘(2*n)*系数(gser,x,2*n,n=0..14)#Emeric Deutsch公司2007年8月24日
#第二个Maple项目:
使用(组合):
b: =proc(n,i)选项记住`如果`(n=0,1,`如果`(i<1,0,添加(
`如果`(j=0或irem(i,2)=0且irem(j,2)=1,多项式(n,
n-i*j,i$j)*(i-1)^j/j*b(n-i*j,i-1),0),j=0..n/i))
结束时间:
a: =n->b(2*n$2):
seq(a(n),n=0..20)#阿洛伊斯·海因茨2015年3月9日
数学
多项式[n,k]:=n/次数@@(k!);b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,Sum[If[j==0||Mod[i,2]==0&&Mod[j,2]==1,多项式[n,连接[{n-i*j},数组[i&,j]]*(i-1)^j/j*b[n-i*j,i-1],0],{j,0,n/i}]];a[n]:=b[2n,2n];表[a[n],{n,0,20}](*Jean-François Alcover公司2017年2月8日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A060307型.
关键词
容易的,非n
作者
扩展
更多术语来自Emeric Deutsch公司2007年8月24日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月4日08:39。包含372230个序列。(在oeis4上运行。)