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

Author

Philippe Deléham, Mar 31 2005

Keywords

• nonn
• easy
• base

Examples

			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, ...
		

Links

• 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].

Crossrefs

Cf. A102370, A103542, A089400.

Programs

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

Formula

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

Extensions

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