%I #11 Mar 31 2015 17:18:29
%S 0,0,0,0,1,0,0,0,2,1,0,0,1,0,0,0,3,2,1,1,1,0,0,0,2,1,0,0,1,0,0,0,4,3,
%T 2,2,2,1,1,1,2,1,0,0,1,0,0,0,3,2,1,1,1,0,0,0,2,1,0,0,1,0,0,0,5,4,3,3,
%U 3,2,2,2,3,2,1,1,2,1,1,1,3,2,1,1,1,0,0,0,2,1,0,0,1,0,0,0,4,3,2,2,2,1,1,1,2
%N In binary representation of n: (number of zeros) minus (number of blocks of contiguous zeros).
%C a(n) = A023416(n) - A087116(n); a(A003754(n)) = 0.
%H Reinhard Zumkeller, <a href="/A107782/b107782.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%o (Haskell)
%o a107782 n = a023416 n - a087116 n -- _Reinhard Zumkeller_, Mar 31 2015
%Y Cf. A007088, A107345.
%Y Cf. A056973. - _R. J. Mathar_, Aug 24 2008
%Y Cf. A023416, A087116, A003754.
%K nonn
%O 0,9
%A _Reinhard Zumkeller_, May 25 2005