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.

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, 70, 73, 75, 81, 83, 84, 85, 86, 98, 100, 101, 104, 106, 108, 112, 114, 116, 120, 122, 131, 139, 141, 143, 148, 156, 162, 163, 168, 169, 172, 184, 200, 209, 210, 211

Offset: 1

Author

Alex Ratushnyak, Dec 05 2012

Keywords

• base
• nonn

Comments

Indices of 0's in A220115.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000120, A007895, A220115.

Programs

Mathematica

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 *)