#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a0669773 显示1-1的1 ;%I a069773;%S a069773 0,1,1,3,2,2,2,6,8,8,7,4,5,14,15,15,19,20,22,16,21,17,9,10,18,11,11,12,12,13,37,38,39,39,;%T a069773 40,41,41,51,52,53,54,55,55,60,60,61,62,64,42,42,43,56,57,63,44,58,58,58,58,41,51,51,52,53,54,55,55,60,61,62,64,,45,23,24,46,25, %U a069773 26,27,47,59,48,28,29,49,30,31,32,50,33,34,35,36107108109110,111 %N A069773自同构RoblDownCar_et_交换引起的自然数置换!根据A014486. %H A069773 A.Karttunen编码的括号,加纯性(包括计算该序列的完整方案程序) %H A069773自然数排列序列的索引项%o A069773(在列表结构上实现这种自同构的Scheme函数:)(define(RoblDownCar_et_Swap!s) (条件((不是(配对?s) ))(不是(配对?(cdr s))(交换!s) )(其他(罗布!s) (机械人汽车交换!(汽车s)))s) %o A069773(定义(robl!s) (let((ex car(s car)))(设置汽车!s(cddr s))(设置cdr!(cdr s)ex car)(交换!(cdr s))(交换!s) s)) %o A069773(定义(交换!s) (let((ex car(s car)))(设置汽车!s(cdr s))(设置cdr!s ex car)s)) %Y A069773 A069774的倒数,car/cdr翻转A057501的共轭,即A069773(n)=A057163(A057501(A057163(n)))。另请参阅a06975。 %K a06973 nonn %O A069773 0,3 %A A069773 Antti Karttunen,2002年4月16日 %K A069773 nonn %O a06973 nonn %O a06973 0,3 %A a06973 %A a0697