%I#6 2015年10月15日10:55:24

%S 0,1,2,3,4,5,7,8,6,9,10,11,12,13,17,18,20,21,22,14,15,16,19,23,24,25，

%电话：26,27,28,29,30,31,32,33,34,35,36,45,46,48,49,50,54,55,57,58,59,61,62，

%U 63,64,37,38,39,40,41,42,43,44,47,51,52,53,56,60,65,66,67,68,69

%N加泰罗尼亚双射gma082352作用于A014486/A063171编码的括号引起的自然数置换。

%H A.Karttunen，<A href=“网址：http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>Gatomorphisms（带有完整的Scheme源代码）

%H<a href=“/index/Per#IntegerPermutationCatAuto”>为加泰罗尼亚自同构引起的签名置换索引条目</a>

%o（在列表结构上实现此自同构的Scheme函数：）

%o（定义（gma082352！s）（cond（（not（pair？s））s）（not

%o（定义（robr！s）（let（（ex-cdr（cdr s）））（set-cdr！s（caar s））（set-car！（car s）ex-cdr）（swap！（cars））

%o（定义（交换！s）（let（（ex-car（cars）））（set-car！s（cdr-s））（set-cdr！s ex-car）s））

%A082351的Y逆。a（n）=A057163（A082354（A057163（n）））。另请参阅A074679-A074680、A082355-A0822356、A082361-A082362。

%K nonn公司

%0、3

%2003年4月17日，安蒂·卡图宁