%I#20 2023年12月28日15:03:56

%S 1,2,3,6,4,5,7,12,13,10,14,8,9,11,15,26,24,25,27,28,20,21,29,18,22,30，

%电话：16,17,19,23,31,52,53,50,54,48,49,51,55,56,57,42,58,40,41,43,59,44,60，

%U 36,37,45,61,34,38,46,62,32,33,35,39,47,6310610405

%N与圣诞树模式图（A367508）相关的A置换：A（1）=1，对于任何N>1，A（N）=A053644（N）+A367562（N-1）。

%C此序列是正整数的置换（使用逆A368428）：

%C-圣诞树模式映射遍历所有有限的非空二进制字，

%C-通过在这些字前面加一个1，我们得到了所有整数>=2的二进制展开式，

%因此，在前导项a（1）=1的情况下，我们得到了正整数的置换。

%显然，A088163\{0}对应于不动点。

%我们也可以通过应用从链“1”（而不是“01”）开始的圣诞树模式图，并将生成的二进制字转换为十进制，来获得这个序列。

%H Rémy Sigrist，n表，n=1..8191的a（n）</a>

%H Rémy Sigrist，PARI计划</a>

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

%e第一个术语及其二进制扩展和圣诞树模式图中的相应单词是：

%e n（n）bin（a（n））圣诞节单词

%e------------------------------------

%e 11 11不适用

%e 2 2 10 0

%e 3 3 11 1

%e 4 6 110 10

%e 5 4 100 00

%e 6 5 101 01电话

%电子7 7 111 11

%e 8 12 1100 100电话

%e 9 13 1101 101电话

%e 10 10 1010 010电话

%e 11 14 1110 110电话

%e 12 8 1000 000

%电子13 9 1001 001

%e 14 11 1011 011电话

%e 15 15 1111 111电话

%t With[{imax=7}，Map[FromDigits[#，2]&，Flatten[NestList[Map[Delete[{If[Length[#]>1，Map[#<>“0”&，Rest[#]]，Nothing]，Join[{#[[1]]<>“O”}，Map[#<<“1”&，#]]]}，0]&]，{“1”}}，imax-1]]（*生成顺序为7的项*）（*_Paolo Xausa_，2023年12月28日*）

%o（PARI）请参阅链接部分。

%o（Python）

%o从itertools导入岛

%o从functools导入reduce

%o def uniq（r）：返回reduce（lambda u，e:u if e in u else u+[e]，r，[]）

%o def agen（）：#术语生成器

%o R=[[“1”]]

%o而R：

%o r=r.pop（0）

%o map的产量（λb:int（b，2），r）

%o如果len（r）>1:r.append（uniq（[r[k]+“0”代表范围（1，len（r））中的k））

%o R.append（uniq（[R[0]+“0”，R[0]=“1”]+[R[k]+“1”代表范围（1，len（R））中的k））

%o打印（列表（islice（agen），66））#_Michael S.Branicky_，2023年12月24日

%Y参考A053644、A088163、A367508、A367562、A368428（反向）。

%K nonn，看，基础

%O 1,2号机组

%阿雷米·西格里斯特，2023年12月24日