%I A153033
%S A153033 3,6,7,11,13,14,15,22,23,26,27,29,30,31,43,45,46,47,53,54,55,58,59,61,
%T A153033 62,63,86,87,90,91,93,94,95,106,107,109,110,111,117,118,119,122,123,125,
%U A153033 126,127,171,173,174,175,181,182,183,186,187,189,190,191,213,214,215
%N A153033 Numbers with adjacent 1's and no adjacent 0's in binary expansion.
%e A153033 a(1)=3 because bin(3)= 11.
%t A153033 fQ[n_] := Block[{st = Union@ Split@ IntegerDigits[n, 2]}, MemberQ[st, 
               {1, __}] && !MemberQ[st, {0, __}]]; Select[Range@218, fQ@# &] [From 
               Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 21 2008]
%Y A153033 Sequence in context: A091067 A120511 A022550 this_sequence A076644 A087642 
               A084349
%Y A153033 Adjacent sequences: A153030 A153031 A153032 this_sequence A153034 A153035 
               A153036
%K A153033 base,easy,nonn
%O A153033 1,1
%A A153033 Gil Broussard (gilbroussard(AT)bellsouth.net), Dec 17 2008
%E A153033 I added the Mathematica coding and extended the sequence. Robert G. Wilson 
               v (rgwv(AT)rgwv.com), Dec 21 2008