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,3

Comments

Indices of 0's in A220115.

Links

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

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

Crossrefs

Cf. A000120, A007895, A220115.

Sequence in context: A130099 A047397 A174331 * A366059 A043341 A023714

Adjacent sequences: A220113 A220114 A220115 * A220117 A220118 A220119

Keyword

base,nonn

Author

Alex Ratushnyak, Dec 05 2012

Status

approved