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.
%I A220116 #12 Jul 27 2023 04:58:56
%S A220116 0,1,2,6,8,9,10,18,19,24,25,28,36,38,41,44,46,49,50,51,52,53,54,68,69,
%T A220116 70,73,75,81,83,84,85,86,98,100,101,104,106,108,112,114,116,120,122,
%U A220116 131,139,141,143,148,156,162,163,168,169,172,184,200,209,210,211
%N A220116 Numbers k such that the number of 1's in binary expansion of k equals the number of terms in Zeckendorf representation of k.
%C A220116 Indices of 0's in A220115.
%H A220116 Amiram Eldar, <a href="/A220116/b220116.txt">Table of n, a(n) for n = 1..10000</a>
%t A220116 With[{z = Select[Range[0, 1350], BitAnd[#, 2 #] == 0 &]}, Select[Range[0, Length[z] - 1], DigitCount[#, 2, 1] == DigitCount[z[[# + 1]] , 2, 1] &]] (* _Amiram Eldar_, Jul 27 2023 *)
%Y A220116 Cf. A000120, A007895, A220115.
%K A220116 base,nonn
%O A220116 1,3
%A A220116 _Alex Ratushnyak_, Dec 05 2012