%I A153034
%S A153034 4,8,9,16,17,18,20,32,33,34,36,37,40,41,64,65,66,68,69,72,73,74,80,81,
%T A153034 82,84,128,129,130,132,133,136,137,138,144,145,146,148,149,160,161,162,
%U A153034 164,165,168,169,256,257,258,260,261,264,265,266,272,273,274,276,277
%N A153034 Numbers with adjacent 0's and no adjacent 1's in binary expansion.
%e A153034 a(1)=4 becuase bin(4)=100.
%t A153034 fQ[n_] := Block[{st = Union@Split@IntegerDigits[n, 2]}, MemberQ[st, {0, 
               __}] && !MemberQ[st, {1, __}]]; Select[Range@ 288, fQ@# &] [From 
               Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 21 2008]
%Y A153034 Cf. A153033, A000975. [From Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 
               21 2008]
%Y A153034 Sequence in context: A018196 A072103 A004756 this_sequence A106840 A140612 
               A160053
%Y A153034 Adjacent sequences: A153031 A153032 A153033 this_sequence A153035 A153036 
               A153037
%K A153034 base,easy,nonn
%O A153034 1,1
%A A153034 Gil Broussard (gilbroussard(AT)bellsouth.net), Dec 17 2008
%E A153034 I added the Mathematica coding, extended the sequence and added the cross-references. 
               Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 21 2008