|
|
A080979
|
|
Each tree encoded in A014486 mapped to the corresponding branch-reduced zigzag-tree (positions in A014486).
|
|
4
|
|
|
0, 1, 2, 3, 2, 5, 6, 7, 3, 2, 5, 11, 12, 5, 6, 15, 16, 7, 18, 6, 20, 7, 3, 2, 5, 11, 12, 5, 11, 29, 30, 12, 32, 11, 34, 12, 5, 6, 15, 39, 40, 15, 16, 43, 16, 7, 18, 47, 48, 49, 18, 6, 15, 53, 20, 55, 16, 57, 7, 18, 6, 20, 20, 7, 3, 2, 5, 11, 12, 5, 11, 29, 30, 12, 32, 11, 34, 12, 5, 11, 29
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
For trees which are already branch-reduced we have a(n)=n, where n is one of A080980.
|
|
LINKS
|
|
|
PROG
|
(Scheme-function implementing this surjection on trees represented as S-expressions:) (define (BranchReducedZigzagTree! bt) (cond ((pair? bt) (cond ((and (pair? (car bt)) (not (null? (caar bt))) (null? (cdar bt))) (set-car! bt (caar bt)) (BranchReducedZigzagTree! bt)) ((and (pair? (cdr bt)) (not (null? (cddr bt))) (null? (cadr bt))) (set-cdr! bt (cddr bt)) (BranchReducedZigzagTree! bt)) (else (BranchReducedZigzagTree! (car bt)) (BranchReducedZigzagTree! (cdr bt)))))) bt)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|