[go: up one dir, main page]

login
A218787
a(n) = A014486-index for the n-th tendril of infinite beanstalk (A213730(n)), with the "lesser numbers to the left side" construction.
15
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.
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 11 2012
STATUS
approved