%I#5 2014年5月1日02:47:41

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

%电话：42、43、48、47、49、40、39、50、41、37、38、54、53、55、52、51、57、56、58、23、24、59、25，

%U 26,27,61,60,62,28,29,63,30,31,32,64,33,34,35,36129128130127126

%N由自同构cdr_robl_cdr！引起的自然数置换！作用于A014486编码的括号。

%H A.Karttunen，<A href=“网址：http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>Gatomorphisms（包括计算此序列的完整Scheme程序）

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

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

%o（定义（cdr_robl_cdr！s）（条件（（非（配对）））（非（对？（cdr！s）））

%o（定义（robl！s）（let（ex-car（cars）））（set-car！s（cddrs））（set-cdr！（cdr s）ex-car）（swap！（cdrs））

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

%Y逆置换：A072094。A072092的car/cdr翻转共轭，即A072095（n）=A057163（A072092（A057163（n）））。另请参阅A071655-A071660、A072090-A072091。

%K nonn公司

%0、3

%2002年6月25日，安蒂·卡图宁