登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A071660号 由自同构robl_car_cdr诱导的自然数置换!对由编码的括号执行操作A014486号. 12

%我

%S 0,1,3,2,6,8,7,4,5,15,14,19,20,22,16,21,17,9,10,18,11,12,13,39,41,40,

%电话37,38,52,51,53,55,54,60,61,62,64,43,42,56,57,63,44,58,45,23,24,46,25,

%U 26,27,47,59,48,28,29,49,30,31,32,50,33,34,35,3611311211718120

%N由自同构robl_car_cdr诱导的自然数置换!作用于由A014486编码的括号。

%H A.Karttunen,<A href=“http://www.iki.fi/~karturi/matikka/Nekomorphisms/gatomorf.htm”>Gatomorphisms/gatomorf.htm(包括计算此序列的完整方案源)

%H<a href=“/index/Per#IntegerPermutation”>索引自然数置换序列的条目</a>

%o(在列表结构上实现这种自同构的Scheme函数:)

%o(定义(机器人汽车)!s) (条件((不是(配对?s) ))(不是(配对?(cdr s))(交换!s) )(其他(罗布!s) (机器人汽车!(汽车))(机器人汽车!(cdr s)))s)

%o(定义(机器人!s) (let((ex car(s car)))(设置汽车!s(cddr s))(设置cdr!(cdr s)ex car)(交换!(cdr s))(交换!s) s)段)

%o(定义(交换!s) (let((ex car(s car)))(设置汽车!s(cdr s))(设置cdr!s(汽车除外)

%Y逆排列:A071659。car/cdr翻转A071655的共轭物,即A071660(n)=A057163(A071655(A057163(n)))。参见A071657、A071658。

%不知道

%0.3度

%A_Antti Karttunen,2002年5月30日

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:美国东部时间2020年8月12日16:31。包含336439个序列。(运行在oeis4上。)