login
A213728
Binary complement of A213729.
10
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
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: A373307 A244612 A262805 * A105367 A232990 A285076
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 01 2012
EXTENSIONS
Offset changed from 1 to 0 by Antti Karttunen, Nov 05 2012
STATUS
approved