0,3个

在A057501号和A057502号，在(A014138号（n-1）+1）-th和(A014138号（n） ）—第项划分A000108号（n） 对象由A014486号进入之内A002995年（n+1）平面树的（n+1）等价类，因此后一个序列也可以用下面给出的Maple过程rothandshakespermutation循环数生成。

n=n的表0。

自然数排列序列的索引项

A。卡图宁，加纯性（包括计算该序列的完整方案程序）

地图（加泰罗尼亚兰全球，地图（RotateHandshakesR，A014486号));

旋转手柄sr:=n->pars2benme（deepreverse（RotateHandshakesP（deepreverse（binexp2pars（n））））；

deepreverse：=proc（a）如果0=nops（a）或list<>什么类型（a），那么（a）else[op（deepreverse（cdr（a）），deepreverse（a[1]）；金融机构；结束；

带（组）；CountCycles:=b->（nops（convert（b，'disjcyc'））+（nops（b）-convert（map（nops，convert（b，'disjcyc'），`+`））；

rothandshakespermutation循环计数：=proc（up）local u，n，a，r，b；a:=[]；对于n从0到n do b：=[]；u：=（二项式（2*n，n）/（n+1））；对于从0到u-1的r，do b：=[op（b），1+加泰罗尼亚克（n，RotateHandshakes（catalanurnrank（n，r）））]；外径；a：=[运算（a），计数周期（b）]；外径；返回（a）；结束；

#对于其他步骤，请遵循A057501号.

（在列表结构上实现这种自同构的Scheme函数：）（define（RotateHandshakesInv！s） （条件（（不是（配对？s） ））（不是（配对(cdr s））（交换！s） ）（其他（旋转和摇动(cdr s））（机器人！s） ）s）

（定义（机器人！s） （let（（ex car（s car）））（设置汽车！s（cddr s））（设置cdr(cdr s）ex car）（交换(cdr s））（交换！s） s）段）

（定义（交换！s） （let（（ex car（s car）））（设置汽车！s（cdr s））（设置cdr！s（汽车除外）

相反的A057501号汽车/cdr翻转了A069774号，即。A057502号（n）=A057163(A069774号(A057163（n） ））。请参阅A057507型,A057510号,A057513号,A069771号,A069772号.

上下文顺序：邮编：A139285 A080398 A082321*A071656号 邮编：A130963 A130930

相邻序列：A057499号 A057500型 A057501号*A057503号 A057504号 A057505型

不

安蒂·卡尔图宁2000年9月3日

经核准的