%I #12 Jul 27 2023 04:58:56
%S 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 70,73,75,81,83,84,85,86,98,100,101,104,106,108,112,114,116,120,122,
%U 131,139,141,143,148,156,162,163,168,169,172,184,200,209,210,211
%N 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 Indices of 0's in A220115.
%H Amiram Eldar, <a href="/A220116/b220116.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 Cf. A000120, A007895, A220115.
%K base,nonn
%O 1,3
%A _Alex Ratushnyak_, Dec 05 2012
|