%I#17 2022年7月22日17:46:05

%S 1,2,4,5,3,9,10,13,14,12,6,7,8,11,23,24,27,28,26,36,37,41,42,40,32,33，

%电话：35,39,15,16,18,19,17,22,25,20,21,34,38,29,30,31,65,66,69,70,68,78,79，

%U 83,84,82,74,75,77,81106107111112112126131132130单位

%N序列a[1]到[cat[N]]是将深度第一的平面种植二叉树的森林[N]转换为宽度第一表示的排列。

%H A.Karttunen，<A href=“/A038876/b038776.txt”>n的表，A（n）表示n=1..1430</a>

%H A.Karttunen，<A href=“网址：http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>Gatomorphisms（包括计算此序列的完整Scheme程序）

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

%e树（1（100）（10））变为（1）（11）（00），因此（1（1（10）0）），并通过排列{1,2,4,5,3}={{1}，{2}，}4,5,1}}}从森林[3]中的位置3排列到位置5

%p[seq（加泰罗尼亚排名（inf，（btbf2df（binrev（CatalanUnrank，inf，j），0,1）/2））+1，j=0..（二项式（2*inf，inf）/（inf+1））-1）]；（实际上，使用类似6的值而不是无穷大）。

%p btbf2df:=进程（nn，i，r）局部n，j，c，x，y，w；n：=nn；如果（0=（n mod 2）），则返回（0）；fi；c：=i；对于从1到r的j，做c：=c+（n mod 2）；n:=地板（n/2）；od；w:=2*c；c:=0；对于从1到（2*i）的j，做c:=c+（n mod 2）；n:=地板（n/2）；od；x：=btbf2df（n，c，（w-（j-1）））；y:=btbf2df（地板（n/2），c+（n mod 2），（w-（j）））；返回（2^（箱宽（x）+箱宽（y））+；结束；

%p floor_log_2：=进程（n）局部nn，i:nn:=n；对于i从-1到n，如果（0=nn），则返回（i）；fi:nn:=楼层（nn/2）；od：结束：

%p箱宽：=n->（`if`（（0=n），1，floor_log_2（n）+1））；

%p binrev：=程序（nn）局部n，z；n：=nn；z:=0；而（n<>0）做z:=2*z+（n模2）；n:=地板（n/2）；od；返回（z）；结束；

%Y比较A082364和A072619的绘图。

%A070041的Y逆。另请参阅A038774、A038775。如果“展开”，则生成A057117。最大循环长度：A057542。

%K nonn公司

%O 1、2

%2000年5月4日举行的对外会议

%E Antti Karttunen的补充意见，2000年8月11日