#来自在线整数序列百科全书的问候!本次搜索:id:a0771660〈1-1的1个1 ;%I a0771660;%S a071660%S a0771660 0,1,1,3,3,2,2,6,8,8,7,4,5,15,14,19,20,22,16,21,17,9,10,18,11,11,12,12,13,39,41,40,10,38,38,38,52,51,53,55,55,54,60,60,61,62,64,43,42,56,57,63,44,58,58,58,58,38,52,52,51,53,55,55,54,60,60,61,62,64,43,43,42,56,57,57 45,23,24,46,25, %U a071660 26,27,47,59,48,28,29,49,30,31,32,50,33,34,35,36113112117118,120 %N A071660由自同构robl_car_cdr诱导的自然数置换!根据A014486. %H A071660 A.Karttunen编码的括号,加纯性(包括计算该序列的完整方案源) %H A071660自然数排列序列的索引项%o A071660(在列表结构上实现此自同构的Scheme函数:) %o A071660(define(robl_car_cdr!s) (条件((不是(配对?s) ))(不是(配对?(cdr s))(交换!s) )(其他(罗布!s) (机器人汽车!(汽车))(机器人汽车!(cdr s)))s) %o A071660(定义(robl!s) (let((ex car(s car)))(设置汽车!s(cddr s))(设置cdr!(cdr s)ex car)(交换!(cdr s))(交换!s) s)) %o A071660(定义(交换!s) (let((ex car(s car)))(设置汽车!s(cdr s))(设置cdr!s ex car)s)) %Y A071660逆排列:A071659。car/cdr翻转A071655的共轭物,即A071660(n)=A057163(A071655(A057163(n)))。用户可在2002年5月10日获得ᯆa0.0协议ᯆa0.0ˆa0.0协议ᯆa0.0ᯆ也可使用ᯆa0.0协议ᯆa0.0