A126308 Delete '10'-substrings in the binary expansion of n.

0, 1, 0, 3, 0, 1, 1, 7, 0, 1, 0, 3, 2, 3, 3, 15, 0, 1, 0, 3, 0, 1, 1, 7, 4, 5, 1, 7, 6, 7, 7, 31, 0, 1, 0, 3, 0, 1, 1, 7, 0, 1, 0, 3, 2, 3, 3, 15, 8, 9, 2, 11, 2, 3, 3, 15, 12, 13, 3, 15, 14, 15, 15, 63, 0, 1, 0, 3, 0, 1, 1, 7, 0, 1, 0, 3, 2, 3, 3, 15, 0, 1, 0, 3, 0, 1, 1, 7, 4, 5, 1, 7, 6, 7, 7, 31

Offset

0,4

Links

Table of n, a(n) for n=0..95.

Example

10 is 1010 in binary, thus it is rewritten to empty string, thus a(10)=0. 12 is 1100 in binary, thus it is rewritten to '10', so a(12)=2. 27 is 11011 in binary and when '10' is deleted, results 111, 7 in decimal, thus a(27)=7.

Prog

(Scheme:) (define (A126308 n) (cond ((zero? n) 0) ((= 2 (modulo n 4)) (A126308 (/ (- n 2) 4))) (else (+ (modulo n 2) (* 2 (A126308 (floor->exact (/ n 2))))))))

Crossrefs

A126309 = A080300(a(A014486(n))). Cf. A080303.

Sequence in context: A271023 A370041 A143624 * A370040 A094923 A331567

Adjacent sequences: A126305 A126306 A126307 * A126309 A126310 A126311

Keyword

nonn,base

Author

Antti Karttunen, Jan 02 2007

Status

approved