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

Author

Antti Karttunen, Jun 26 2001

Keywords

• nonn

Links

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

Crossrefs

Bisection of A062877.

Subset of A022342.

Cf. A003714, A014417, A062880, A165276.

Programs

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

Formula

A062880(n) = A003714(a(n)).

A165276(a(n)) = 0. - Amiram Eldar, Jan 20 2020

Extensions

Offset corrected by Amiram Eldar, Jan 20 2020