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

%I #15 Aug 08 2015 21:25:59

%S 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,

%T 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,

%U 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

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

%H David Applegate, Benoit Cloitre, Philippe Deléham and N. J. A. Sloane, Sloping binary numbers: a new sequence related to the binary numbers [<a href="http://neilsloane.com/doc/slopey.pdf">pdf</a>, <a href="http://neilsloane.com/doc/slopey.ps">ps</a>].

%F a(n) = A023416(A102370(n)). - _R. J. Mathar_, Aug 10 2007

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

%p 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

%Y Cf. A102370, A103542, A089400.

%K nonn,easy,base

%O 0,5

%A _Philippe Deléham_, Mar 31 2005

%E More terms from _R. J. Mathar_, Aug 10 2007