This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
There are 3 binary self numbers that do no exceed 10: 1, 4 and 6. Hence a(1) = 3.
selfQ[n_] := AllTrue[Range[n, n - Floor@Log2[n], -1], # + DigitCount[#, 2, 1] != n &]; a[n_] := Count[Range[10^n], _?selfQ]; Array[a, 6, 0]
There are 3 binary self numbers that do no exceed 2^3 = 8: 1, 4 and 6. Hence a(3) = 3.
selfQ[n_] := AllTrue[Range[n, n - Floor@Log2[n], -1], # + DigitCount[#, 2, 1] != n &]; a[n_] := Count[Range[2^n], _?selfQ]; Array[a, 16, 0]