登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

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

%I#5 2014年4月30日01:53:48

%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,

%单位:26,27,47,59,48,28,29,49,30,31,32,50,33,34,35,36113112117118120

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

%H A.Karttunen,<A href=“网址:http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>Gatomorphisms(包括计算此序列的完整Scheme源代码)

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

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

%o(定义(robl_car_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逆置换:A071659。A071655的car/cdr翻转共轭,即A071660(n)=A057163。另请参阅A071657、A071658。

%K nonn公司

%0、3

%安蒂·卡图内恩,2002年5月30日

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

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

上次修改时间:美国东部夏令时2024年6月24日23:28。包含373691个序列。(在oeis4上运行。)