OFFSET
1,3
FORMULA
a(1) = 0, a(2) = 1, a(3) = 2, a(2^m+k+2) = 2^m + 2^(m-1) + k, m >= 1, 0 <= k < 2^m. - Yosu Yurramendi, Aug 08 2016
MATHEMATICA
w = {1, 0, 1}; Select[Range[0, 99], If[# < 2^(Length@ w - 1), True, Take[IntegerDigits[#, 2], Length@ w] != w] &] (* Michael De Vlieger, Aug 10 2016 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
STATUS
approved