STATUS
editing
approved
editing
approved
Select[Range[200], AllTrue[{DigitCount[#, 2, 0], DigitCount[#, 2, 1]}, EvenQ]&] (* Harvey P. Dale, Aug 16 2021 *)
approved
editing
proposed
approved
editing
proposed
<a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
<a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
nonn,base,easy,changed
proposed
editing
editing
proposed
Numbers n which that have an even number of 0's and 1's in their binary expansion.
proposed
editing
editing
proposed
while j<=32768300:
.... if bin(i)[2:].count("1")%2 == 0 and == bin(i)[2:].count("0")%2==0:
........ print (str(j)+" "+str(i))
........ j+=1
.... i+=1 # Indranil Ghosh, Feb 10 2017
approved
editing