login
A213719
Characteristic function for A179016.
13
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
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 01 2012
STATUS
approved