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 A329853 #18 Feb 23 2020 17:10:11 %S A329853 4,16,33,72,80,129,130,132,192,258,260,264,321,513,517,528,544,608, %T A329853 640,768,800,896,1025,1028,1032,1056,1184,1216,1280,1538,1540,1552, %U A329853 1792,2050,2054,2057,2060,2064,2082,2088,2113,2177,2180,2184,2240,2304,2308,2336,2368,2432 %N A329853 Numbers having twice as many terms in their Zeckendorf expansion as 1's in their binary expansion. %C A329853 Numbers k such that A007895(k) = 2 * A000120(k). %e A329853 The binary expansion of 800, "1100100000", contains three 1's, and the Zeckendorf expansion contains six terms: 800 = 610 + 144 + 34 + 8 + 3 + 1. There are twice as many terms in the Zeckendorf expansion, so 800 is in the sequence. %t A329853 Position[DigitCount[(v = Select[Range[10^5], BitAnd[#, 2#] == 0 &]), 2, 1] / DigitCount[Range @ Length[v], 2, 1], _?(# == 2 &)]//Flatten (* _Amiram Eldar_, Jan 12 2020 after _Jean-François Alcover_ at A007895 *) %Y A329853 Cf. A000045, A000120, A007895, A220116, A329852. %K A329853 nonn,base %O A329853 1,1 %A A329853 _Alex Ratushnyak_, Nov 22 2019