A103615 Number of zeros in A103542(n) (binary equivalent of A102370(n)).

1, 0, 1, 1, 2, 0, 2, 2, 3, 1, 1, 1, 2, 1, 3, 3, 4, 2, 2, 2, 3, 0, 2, 2, 3, 1, 1, 1, 3, 2, 4, 4, 5, 3, 3, 3, 4, 1, 3, 3, 4, 2, 2, 2, 2, 1, 3, 3, 4, 2, 2, 2, 3, 0, 2, 2, 3, 1, 1, 2, 4, 3, 5, 5, 6, 4, 4, 4, 5, 2, 4, 4, 5, 3, 3, 3, 3, 2, 4, 4, 5, 3, 3, 3, 4, 1, 3, 3, 4, 2, 2, 1, 3, 2, 4, 4, 5, 3, 3, 3, 4, 1, 3, 3, 4

Offset

0,5

Links

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

David Applegate, Benoit Cloitre, Philippe Deléham and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers [pdf, ps].

Formula

a(n) = A023416(A102370(n)). - R. J. Mathar, Aug 10 2007

Example

The sequence has a natural decomposition into blocks (see the paper): 1; 0; 1, 1, 2; 0, 2, 2, 3, 1, 1, 1; 2, 1, 3, 3, 4, 2, 2, 2, 3, 0, 2, 2, 3, 1, 1; 1, 3, ...

Maple

A023416 := proc(n) local digs : digs := convert(n, base, 2) : if nops(digs) = 0 then 1: else add(1-j, j=digs) : fi : end: ili := readline("b102370.txt") : while ili <> 0 do na := sscanf(ili, "%d %d") : na := A023416(op(2, na)) ; printf("%d, ", na) ; ili := readline("b102370.txt") : od: # R. J. Mathar, Aug 10 2007

Crossrefs

Cf. A102370, A103542, A089400.

Sequence in context: A366354 A144741 A352965 * A308167 A293665 A159632

Adjacent sequences: A103612 A103613 A103614 * A103616 A103617 A103618

Keyword

nonn,easy,base

Author

Philippe Deléham, Mar 31 2005

Extensions

More terms from R. J. Mathar, Aug 10 2007

Status

approved