登录

修订历史记录A218782号

(粗体、蓝色下划线文本是附加;褪色的红色下划线文本是删除.)

显示所有更改。
A014486号-Beanstalk-tree的紧凑表示代码,从一个内部节点(1)和两个叶子(3和2)的树开始,一次按两个自然数增长,较大的数字位于左侧。
(历史;已发布版本)
#10通过查尔斯·格里特豪斯四世2014年11月2日星期日12:18:35 EST
黄体脂酮素

(定义(tree_for_A218782号n) (cond((零?n)(list))((=1n)(列表))(else(let((new-tree(copy-tree)(tree_for_A218782号(-1+n)))(为-第n个n个-第个-无担保-免费-使用-car-cdr代码!新树(A218790型n) ))

(定义(为-第n个n个-第个-无担保-免费-使用-car-cdr代码!树n)

讨论
11月2日周日
12:18
OEIS服务器: https://oeis.org/edit/global/2347
#9通过T.D.诺伊2012年11月17日星期六23:46:14 EST
状态

检验过的

经核准的

#8通过安蒂·卡图恩美国东部时间2012年11月17日星期六18:21:42
状态

提出

检验过的

#7通过安蒂·卡图恩2012年11月17日星期六18:21:32 EST
状态

编辑

提出

#6通过安蒂·卡图恩2012年11月17日星期六17:09:25 EST
评论

这些是按顺序排列的术语的镜像(在二叉树意义上)A218780型。有关较小的版本,请参阅A218778号&A218776号.

#5通过安蒂·卡图恩2012年11月17日星期六17:05:44 EST
名称

A014486号-Beanstalk-tree的紧凑表示代码,从一个内部节点的树开始,一次增长两个自然数 (1) 还有两片叶子(3和2),左边是较大的数字。

评论

三角形的活动中间区域(见随附的“Wolframesque”插图)对应于豆茎生长尖端所在的区域。该区域发生的连续较大的“湍流”大约出现在A218548型除以二。卷须越大(有限的侧枝树),在生长区域的方向上摇摆的时间越长,这种摇摆一直持续到无限茎的生长端(A179016号)已超过卷须的最顶端。另请参阅A218612型.

链接

安蒂 A类. Karttunen,<a href=“/A218782号/b218782.txt“>n表,n=1..256时为a(n)</a>

安蒂 A类. 卡特伦,<a href=“/A218782号/a218782.png“>术语a(1)-a(4096)以Wolframesque方式绘制为二进制字符串</a>

例子

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

----------

..3...2...

...\./.... 编码人A014486号(A218783号(1)) =A014486号(1) =2(二进制10)。

....1.....

----------

5...4.....

.\./......

..3...2...

...\./.... 编码人A014486号(A218783号(2)) =A014486号(3) =12(箱1100)。

....1.....

----------

..7...6...

...\./....

5...4.....

.\./......

..3...2...

...\./.... 编码人A014486号(A218783号(3)) =A014486号(7) = 52 (110100).

....1.....

----------

9...8.....

.\./......

..7...6...

...\./....

5...4.....

.\./......

..3...2...

...\./.... 编码人A014486号(A218783号(4)) =A014486号(18) = 216 (11011000).

....1.....

----------

因此,该序列的前四项是2、12、52和216。

黄体脂酮素

(带有记忆宏定义的方案_安蒂·卡图恩_的Intseg-library):

交叉参考
#4通过安蒂·卡图恩美国东部时间2012年11月17日星期六16:46:28
链接

Antti Karttunen,<a href=“/A218782号/a218782.png“>术语a(1)-a(4096)以Wolframesque方式绘制为二进制字符串</a>

#3通过安蒂·卡图恩2012年11月17日星期六16:44:58 EST
名称

A014486号-Beanstalk-tree的紧凑表示代码,正在增长字节2 通过 自然数,从一个内部节点(1)和两个叶子(3和2)的树开始,较大的数字出现在左边。

链接

Antti Karttunen,<a href=“/A218782号/b218782.txt“>n表,n=1..256时为a(n)</a>

#2通过安蒂·卡图恩2012年11月17日星期六16:43:55 EST
名称

分配 A014486号-代码 对于安蒂 卡图南这个 契约 代表 属于 豆茎-, 增长的 字节2 自然的 数字 时间, 启动 这个 属于 内部的 节点(1) 叶子 ( 2), 具有 这个 更大的 数字 即将到来 这个 左边 .

数据

2, 12, 52, 216, 872, 3496, 14024, 56200, 224904, 899720, 3599496, 14398600, 57599112, 230398088, 921606280, 3686471816, 14745933960, 58983782536, 235935438984, 943742064776, 3774970665096, 15099883493512, 60399541098632, 241598171519112, 966392760309896

抵消

1,1

黄体脂酮素

(使用Antti Karttunen的Intseq库中的记忆宏定义的方案):

(定义(A218782号n) (括号->A014486号(树_用于_A218782号n) ))

(定义(tree_for_A218782号n) (cond((零?n)(list))((=1n)(列表))(else(let((new-tree(copy-tree)(tree_for_A218782号(-1+n)))(add-bud-for-the-nth-unbranching-tree with-car-cdr-code!new-tree(A218790型n) ))

(定义(add-bud-for-the-nth-unbranching-tree-with-car-cdr-code!tree n)(let循环((n n)(t树))

(定义(copy-tree bt)(cond((not(pair?bt))bt),(其他(cons(copy-tree(car-bt))))

(定义(括号->a014486 p)(let loop(s 0)(p p))(如果(null?p)s(let*((x(括号->a 014486(car p)))(w(箱宽x)))

(定义(箱宽n)(让回路(n n)(i 0))(如果(零?n)i(回路(地板->精确(/n 2))(1+i)));;(料箱宽度n)=A029837号(n+1)。

交叉参考
关键词

分配

非n

作者

安蒂·卡图恩2012年11月17日

状态

经核准的

编辑

#1通过安蒂·卡图恩2012年11月5日星期一14:39:37 EST
名称

分配给Antti Karttunen

关键词

分配

状态

经核准的