|
%I #19 Feb 17 2021 01:57:17
%S 0,1,2,3,4,6,7,8,9,12,13,14,15,16,17,18,19,24,25,26,27,28,29,30,31,32,
%T 33,34,35,36,37,38,39,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,
%U 64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,96,97,98,99
%N Numbers whose binary expansion does not begin 101.
%F 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
%t 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 *)
%Y Cf. A007088.
%K nonn,easy,base
%O 1,3
%A _N. J. A. Sloane_
|
