%我#42 2021年3月30日09:37:33

%S 1,2,3,5,4,8,7,14,6,11,12,23,10,20,21,41,9,17,16,32,18,35,34,68,15,29，

%电话：30,59,31,62,61122,13,26,25,50,24,47,48,95,27,53,52104,5110102，

%U 203,22,44,43,86,45,89,88176,46,92,93185,91182183365,19,38,39,77,37

%N按楼层生成的树（3n/2）：a（1）=1，a（2n）=（3*a（N））-1，a（2 N+1）=楼层（3*a（N+1））/2）。

%C正整数的置换。请参阅A183079上的评论。树的最左边的树枝基本上是A061418。最右边：A007051。

%H Antti Karttunen，n表，n=1..8192的a（n）；树的前14层被压扁了</a>

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

%F设L（n）=楼层（3n/2）。

%F设U（n）=3n-1。U是L的补语。

%F然后，树数组T（n，k）由行给出：

%F T（0,0）=1；T（1,0）=2；

%F T（n，2j）=L（T（n-1），j）；

%F T（n，2j+1）=U（T（n-1），j）；

%对于j=0,1，。。。，2^（n-1）-1，n>=2。

%F From _Antti Karttunen，2015年1月26日：（开始）

%F a（1）=1，a（2n）=（3*a（n））-1，a（2n+1）=A032766（a（n+1））=楼层（（3*a（n+1））/2）。

%F其他身份：

%F a（2^n）=A007051（n），对于所有n>=0。[与A048673和A254103共享的财产。]

%F（结束）

%e树的第一级：

%第1页

%第2页

%e 35

%e 4 8 7 14

%p f:=proc（n）选项记住；

%p如果n：：即使是3*进程名（n/2）-1

%其他楼层（3*进程名（（n+1）/2）/2）

%功率因数

%p端程序：

%p f（1）：=1：

%p序列（f（n），n=1..100）；#_罗伯特·伊斯雷尔（Robert Israel），2015年1月26日

%t a[1]＝1；a[n_]：=a[n]=如果[EvenQ[n]，3a[n/2]-1，楼层[3a[（n+1）/2]/2]]；阵列[a，100]（*Jean-François Alcover_，2018年2月2日*）

%o（方案，带有记忆宏定义）

%o（定义（A183209 n）（条件（（<=n 1）n）（偶数？n）（A016789（-（A1832029（/n 2））1）））（其他（A032766（A183208（/（+1）2））））

%o_Antti Karttunen，2015年1月26日

%o（哈斯克尔）

%o导入数据。列表（转置）

%o a183209 n k=a183209_tabf！！（n-1）！！（k-1）

%o a183209_row n=a183209-tabf！！（n-1）

%o a183209_tabf=[1]：迭代（\xs->concat$

%o转置[映射a032766 xs，映射（a016789.减法1）xs]）[2]

%o a183209_list=连接a183209-tabf

%o--_Reinhard Zumkeller_，2015年6月27日

%o（Python）

%o定义a（n）：

%o如果n==1：返回1

%o如果n%2==0：返回3*a（n//2）-1

%o else：返回（3*a（（n-1）//2+1））//2

%o打印（[a（n）代表范围（1101）中的n）]#_Indranil Ghosh，2017年6月6日

%Y参考A183079、A007051、A016789、A183207、A183208、A032766、A191450。

%Y类似排列：A048673，A254103。

%Y逆排列：A259431。

%K nonn，tabf，看

%O 1,2号机组

%A_Clark Kimberling_，2010年12月30日

%2015年1月26日，安蒂·卡图内恩将E方程式添加到名称栏