%I#10 2014年11月2日12:18:35

%S 2,12,522168723496140245620022490489972035994969614398600，

%电话：57599112230398088921606280368647181474593396058983782536，

%电话：23593543898494374206477637749706650961509988349351260399541098632241598171512966392760309896

%N A014486表示Beanstalk-tree的紧凑表示，从一个内部节点（1）和两个叶子（3和2）的树开始，一次按两个自然数增长，较大的数字位于左侧。

%C三角形的活动中间区域（见随附的“Wolframesque”图解）对应于豆茎生长尖端所在的区域。该区域连续出现的较大“湍流”大约出现在A218548除以二的行数处。卷须越大（有限的侧枝树），生长区域方向上的摆动越长，这种摆动持续到无限茎（A179016）的生长尖端通过卷须的最顶端。另见A218612。

%C这些是序列A218780中的项的镜像（在二叉树意义上）。对于较小的版本，请参见A218778和A218776。

%H A.Karttunen，n的表，n的A（n）=1..256</a>

%H A.Karttunen，术语A（1）-A（4096）以Wolframesque方式绘制为二进制字符串</a>

%e说明正在生长的豆茎树如何产生此序列的前四项。在这个“紧凑型”变体中，每一对连续的数字（（2,3）、（4,5）、（6,7）等）都会在豆茎上添加一个新芽（\/），而较小的数字会出现在右边：

%e（电子）----------

%e。。3...2...

%e…\./。。。。由A014486编码（A218783（1））=A014486（1）=2（二进制10）。

%e。。。。1.....

%电子----------

%e 5…4。。。。。

%e.\./。。。。。。

%e。。3...2...

%e…\./。。。。由A014486编码（A218783（2））=A014486（3）=12（bin.1100）。

%e。。。。1.....

%e（电子）----------

%e。。7...6...

%e…\./。。。。

%e 5…4。。。。。

%e.\./。。。。。。

%e。。3...2...

%e…\./。。。。由A014486编码（A218783（3））=A014486（7）=52（110100）。

%e。。。。1.....

%e（电子）----------

%e 9…8。。。。。

%e.\./。。。。。。

%e。。7...6...

%e…\./。。。。

%e 5…4。。。。。

%e.\./。。。。。。

%e。。3...2...

%e…\./。。。。由A014486编码（A218783（4））=A014486（18）=216（11011000）。

%e。。。。1.....

%e（电子）----------

%e因此，该序列的前四项为2、12、52和216。

%o（使用_Antti Karttunen_的Intseq库中的记忆宏定义的方案）：

%o（定义（A218782 n）（括号->A014486（tree_for_A218782 n））

%o（definec（tree_for_A218782 n）（cond（（zero？n）（list））（（=1 n）（list（list

%o（定义（add-bud-for-the-n-th-unbanching-tree-with-car-cdr-code！tree n）（let循环（n n）（t树））树）

%o（define（copy tree bt）（cond（（not（pair？bt））bt）（else（cons（copy tree（car bt））（copy tree（cdr bt）））））

%o（定义（括号->a014486 p）（let loop（s 0）（p p））（如果（null？p）s（let*（（x（括号->a 014486（car p）））（w（箱宽x）））

%o（定义（binwidth n）（让循环（n n）（i 0））（如果（0？n）i（循环（地板->精确（/n 2））（1+i）））；；（料位宽度n）=A029837（n+1）。

%Y a（n）=A014486（A218783（n））。参见A014486、A218790、A218778、A218776、A218780、A218788。

%K nonn公司

%O 1,1号机组

%2012年11月17日，安蒂·卡图内