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 A329852 #17 Feb 23 2020 17:09:48 %S A329852 3,5,15,23,29,34,39,57,58,60,90,92,95,102,111,125,126,144,147,149,159, %T A329852 165,178,183,207,237,243,249,267,335,343,390,399,413,414,432,435,437, %U A329852 447,467,469,474,495,500,503,612,619,621,633,634,636,667,670,686,700 %N A329852 Numbers having twice as many 1's in their binary expansion as terms in their Zeckendorf expansion. %C A329852 Numbers k such that A000120(k) = 2 * A007895(k). %e A329852 The binary expansion of 15, "1111", contains four 1's, and the Zeckendorf expansion contains two terms: 15 = 13 + 2. There are twice as many 1's in the binary expansion, so 15 is in the sequence. %t A329852 Position[DigitCount[(v = Select[Range[10^4], BitAnd[#, 2#] == 0 &]), 2, 1] / DigitCount[Range @ Length[v], 2, 1], _?(# == 1/2 &)]//Flatten (* _Amiram Eldar_, Jan 12 2020 after _Jean-François Alcover_ at A007895 *) %Y A329852 Cf. A000045, A000120, A007895, A220116, A329853. %K A329852 nonn,base %O A329852 1,1 %A A329852 _Alex Ratushnyak_, Nov 22 2019