#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a0669772 显示1-1的1 ;%I a069772;%S a069772 0,1,1,2,3,3,7,6,6,5,4,8,9,10,10,21,20,20,19,14,15,18,17,16,13,12,11,11,22,45,46,44,;%T a069772 42,43,43,31,31,32,30,28,29,29,63,62,61,60,54,55,53,53,52,52,26,27,27,27,27,27,15,18,18,17,16,13,13,12,12,11,11,12,22,,25,23,24,59,58, %U a069772 57,56,40,41,39,37,38,50,49,48,47,36,35,34,33,64,65,67,66,68,69,170 %N A069772由作用于由A014486编码的括号的自同构外部选择握手引起的自然数的自逆排列。 %C a06972此自同构反映了斯坦利练习19的解释N(非交叉握手);%C A069772注意DeepRev(A057164)反映了y轴。 %C A069772此转换保持回文括号/Dyck路径/根平面树回文,但不一定相同,这意味着这将导致序列A061855(=A069766)上的置换。 %H A069772 a.Karttunen,加纯性(包括计算该序列的完整方案程序) %H A069772 R.P.Stanley,加泰罗尼亚语及相关数字练习%沪A069772自然数排列序列的索引项%o A069772(在列表结构上实现这种自同构的Scheme函数:)(define(xrelecthandshakes a)(DeepRev(RotateHandshakes180 a)) %o A069772(define(DeepRev lista)(cond((not(pair?)?lista)列表a)((空?(cdr列表a))(cons(DeepRev(car lista))(list))(else(append(DeepRev(cdr lista))(DeepRev(cons(car lista)(list)))))(按任意顺序由A057164和A069771组成的%Y A069772(n)=A057164(A069771(n))=A069771(A057164(n))。另请参阅A061855、A069766、A057501、A069888、A069889。 %K A069772 nonn %O A069772 0,3 %A A069772 Antti Karttunen,2002年4月16日 %K A069772 nonn