login
A107782
In binary representation of n: (number of zeros) minus (number of blocks of contiguous zeros).
4
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, 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, 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
OFFSET
0,9
COMMENTS
a(n) = A023416(n) - A087116(n); a(A003754(n)) = 0.
PROG
(Haskell)
a107782 n = a023416 n - a087116 n -- Reinhard Zumkeller, Mar 31 2015
CROSSREFS
Cf. A056973. - R. J. Mathar, Aug 24 2008
Sequence in context: A324192 A108730 A056973 * A368413 A086017 A350532
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 25 2005
STATUS
approved