A062879 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

Offset

1,2

Links

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

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.

Cf. A003714, A014417, A062880, A165276.

Sequence in context: A121218 A371239 A266001 * A272193 A186131 A284191

Adjacent sequences: A062876 A062877 A062878 * A062880 A062881 A062882

Keyword

nonn

Author

Antti Karttunen, Jun 26 2001

Extensions

Offset corrected by Amiram Eldar, Jan 20 2020

Status

approved