A213728 Binary complement of A213729.

1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0

Offset

0

Comments

It holds for all n>=1 that a(n) = A213724(A179016(n-1))-A179016(n), meaning that a(n) = 1 when the next node upwards in the infinite trunk of beanstalk sequence (A179016) is the smaller of the two possible branches from A179016(n), and 0 when it is the larger of the said branches. That is, this sequence tells whether A179016 proceeds "left" or "right" at each step.

Links

Antti Karttunen, Table of n, a(n) for n = 0..2493

Formula

a(n) = 1 - A213729(n).

Prog

(Scheme): (define (A213728 n) (- 1 (A213729 n)))
;; Alternative definition:
(define (A213728v2 n) (if (zero? n) 1 (- (A213724 (A179016 (-1+ n))) (A179016 n))))

Crossrefs

Binary complement of A213729. Cf. A213730. Run lengths: A218545.

Sequence in context: A260552 A244612 A262805 * A105367 A232990 A285076

Adjacent sequences: A213725 A213726 A213727 * A213729 A213730 A213731

Keyword

nonn

Author

Antti Karttunen, Nov 01 2012

Extensions

Offset changed from 1 to 0 by Antti Karttunen, Nov 05 2012

Status

approved