login
A062879
Integers whose Zeckendorf expansion does not contain ones at even positions.
5
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
OFFSET
1,2
LINKS
FORMULA
A062880(n) = A003714(a(n)).
A165276(a(n)) = 0. - Amiram Eldar, Jan 20 2020
MATHEMATICA
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 *)
CROSSREFS
Bisection of A062877.
Subset of A022342.
Sequence in context: A371239 A376561 A266001 * A272193 A186131 A284191
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 26 2001
EXTENSIONS
Offset corrected by Amiram Eldar, Jan 20 2020
STATUS
approved