A213719 Characteristic function for A179016.

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

Offset

0

Links

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

Formula

a(0)=1, and for n>=1, a(n) = A213718(n+1)-A213718(n).

Prog

(Scheme): (define (A213719 n) (if (zero? n) 1 (- (A213718 (1+ n)) (A213718 n))))

Crossrefs

Cf. A213720, A213721, A213731.

Sequence in context: A344863 A145006 A189138 * A286937 A080813 A100672

Adjacent sequences: A213716 A213717 A213718 * A213720 A213721 A213722

Keyword

nonn

Author

Antti Karttunen, Nov 01 2012

Status

approved