OFFSET
1,7
COMMENTS
First occurrence of k, k=0,1,2,...: 0, 4, 6, 12, 20, 22, 25, 26, 28, 44, 49, ..., . - Robert G. Wilson v, Feb 08 2018
FORMULA
a(n) = 0 iff n belongs to A097110. - Rémy Sigrist, May 16 2018
EXAMPLE
There are two numbers below 6 with number of 1's in the binary representation minus number of 0's equal to 1, namely 1 and 5, therefore a(6)=2.
There are 3 numbers below 12 with number of 1's in the binary representation minus number of 0's equal to 0, namely 2, 9, 10, therefore a(12)=3.
MATHEMATICA
d[n_] := DigitCount[n, 2, 1] - DigitCount[n, 2, 0]; f[n_] := Block[{fd = d[n], c = k = 0}, While[k < n, If[d@ k == fd, c++]; k++]; c]; Array[f, 83, 0] (* Robert G. Wilson v, Feb 08 2018 *)
PROG
(Python)
d=[0]*200
for n in range(1024):
b = bin(n)[2:]
c0 = b.count('0')
c1 = len(b) - c0
diff = c0 - c1
print str(d[100+diff])+', ',
d[100+diff] += 1
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Apr 17 2018
STATUS
approved