proposed
approved
proposed
approved
editing
proposed
fibOddCount[n_] := Plus @@ (Reverse@IntegerDigits[n, 2])[[1 ;; -1 ;; 2]]; oddIndexed = fibOddCount /@ Select[Range[0, 10000], BitAnd[#, 2 #] == 0 &]; -1 + Position[oddIndexed, _?(# == 0 &)] // Flatten (* Amiram Eldar, Jan 20 2020 *)
Amiram Eldar, <a href="/A062879/b062879.txt">Table of n, a(n) for n = 1..10000</a>
_Antti Karttunen _, Jun 26 2001
Integers whose Zeckendorf expansion does not contain ones at even positions.
0, 2, 5, 7, 13, 15, 18, 20, 34, 36, 39, 41, 47, 49, 52, 54, 89, 91, 94, 96, 102, 104, 107, 109, 123, 125, 128, 130, 136, 138, 141, 143, 233, 235, 238, 240, 246, 248, 251, 253, 267, 269, 272, 274, 280, 282, 285, 287, 322, 324, 327, 329, 335, 337, 340, 342, 356
0,2
nonn
Antti Karttunen Jun 26 2001
approved