%I#5 2014年5月1日02:47:41
%S 0,1,3,2,6,7,8,4,5,15,14,16,17,18,19,20,22,9,10,21,11,12,13,39,40,41,
%电话:37,38,43,42,44,45,46,47,48,49,50,52,51,53,54,55,60,61,62,23,24,63,25,
%U 26,27,56,57,64,28,29,58,30,31,32,59,33,34,35,36113112114115116
%N自同构car_roble_cdr诱导的自然数置换!作用于A014486编码的括号。
%H A.Karttunen,<A href=“网址:http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>亚纯性</a>(包括计算该序列的完整Scheme程序)
%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>
%o(Scheme函数在列表结构上实现此自同构:)
%o(定义(car_roble_cdr!s)(cond((not(pair?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逆置换:A072090及其car/cdr翻转共轭,即A072091(n)=A057163(A072090(A057163(n)))。另请参阅A071655-A071660、A072092-A072095。
%K nonn公司
%0、3
%2002年6月25日,安蒂·卡图宁