A218787 a(n) = A014486-index for the n-th tendril of infinite beanstalk (A213730(n)), with the "lesser numbers to the left side" construction.

0, 0, 0, 0, 1, 0, 0, 1, 2, 0, 0, 0, 1, 2, 0, 8, 0, 0, 1, 0, 0, 1, 2, 0, 8, 0, 0, 1, 8, 0, 0, 3, 0, 2, 1, 0, 0, 0, 1, 2, 0, 8, 0, 0, 1, 8, 0, 0, 3, 0, 2, 1, 0, 8, 0, 0, 3, 0, 60, 0, 0, 172, 0, 2, 0, 1, 0, 0, 1, 2, 0, 8, 0, 0, 1, 8, 0, 0, 3, 0, 2, 1, 0, 8, 0, 0

Offset

1,9

Comments

"Tendrils" of the beanstalk are the finite side-trees sprouting from its infinite trunk (see A179016) at the numbers given by A213730.

Links

A. Karttunen, Table of n, a(n) for n = 1..8727

A. Karttunen, Illustration of how binary trees (the second rightmost column) are encoded by A014486

Example

A213730(9)=22, and from that branches 24 and 25 (as both A011371(24)=A011371(25)=22) and while 24 is a leaf (in A055938) the other branch 25 further branches to two leaves (as both A011371(28)=A011371(29)=25).
When we construct a binary tree from this in such a fashion that the lesser numbers go to the left, we obtain:
...........
...28...29.
.....\./...
..24..25...
...\ /.....
....22.....
...........
and the binary tree
........
...\./..
....*...
.\./....
..*.....
........
is located as A014486(2) in the normal encoding order of binary trees, thus a(9)=2.

Prog

(Scheme with Antti Karttunen's memoization macro definec):
(define (A218787 n) (Aux_for218787 (A213730 n)))
(definec (Aux_for218787 n) (cond ((zero? (A079559 n)) 0) ((not (zero? (A213719 n))) -1) (else (A072764bi (Aux_for218787 (A213723 n)) (Aux_for218787 (A213724 n))))))

Crossrefs

These are the mirror-images of binary trees given in A218788, i.e. a(n) = A057163(A218788(n)). A218786 gives the sizes of these trees. Cf. A072764, A218609, A218611.

Sequence in context: A174806 A089605 A218786 * A325336 A060016 A117408

Adjacent sequences: A218784 A218785 A218786 * A218788 A218789 A218790

Keyword

nonn

Author

Antti Karttunen, Nov 11 2012

Status

approved