登录
A057502号
自然数的排列:由编码的非交叉握手的旋转A014486号(至相反方向A057501号).
30
0, 1, 3, 2, 7, 6, 8, 4, 5, 17, 16, 18, 14, 15, 20, 19, 21, 9, 10, 22, 11, 12, 13, 45, 44, 46, 42, 43, 48, 47, 49, 37, 38, 50, 39, 40, 41, 54, 53, 55, 51, 52, 57, 56, 58, 23, 24, 59, 25, 26, 27, 61, 60, 62, 28, 29, 63, 30, 31, 32, 64, 33, 34, 35, 36, 129, 128, 130, 126, 127
抵消
0,3
评论
A057501号A057502号,之间的循环(A014138号(n-1)+1)-th和(A014138号(n) )-第项划分A000108号(n) 对象的相应项编码A014486号进入之内A002995号平面树的(n+1)等价类,因此后一个序列也可以用下面给出的Maple过程RotHandshakesPermutationCycleCounts生成。
链接
A.卡图恩,异形性(包括用于计算该序列的完整Scheme程序)
MAPLE公司
地图(CatalanRankGlobal,地图(RotateHandshakesR,A014486号));
RotateHandshakesR:=n->pars2binexp(deepreverse(Rotatehandshakes P(deeprecverse(binexp2pars(n))));
deepreverse:=proc(a)如果0=nops(a)或list<>whattype(a),则(a)else[op(deepreversion(cdr(a))),deeprevere(a[1])];fi;结束;
与(组);计数周期:=b->(nops(convert(b,'disjcyc'))+(nops;
RotHandshakesPermutationCycleCounts:=proc(upto_n)局部u,n,a,r,b;a:=[];对于从0到upto_n的n,do b:=[];u:=(二项式(2*n,n)/(n+1));对于从0到u-1的r,做b:=[op(b),1+CatalanRank(n,RotateHandshakes(CatalanUnrank(n、r))];od;a:=[操作(a),计数周期(b)];od;返回(a);结束;
#对于其他程序,请遵循A057501号.
黄体脂酮素
(在列表结构上实现此自同构的Scheme函数:)
(定义(robl!s)(let((ex-car(cars)))(set-car!s(cddrs))(set-cdr!(cdr s)ex-car)(swap!(cdrs))
(定义(交换!s)(let((ex-car(car s)))(set-car!s(cdr s))(set-cdr!s ex-car)s))
关键词
非n
作者
安蒂·卡图恩2000年9月3日
状态
经核准的