%I #9 Dec 19 2021 08:21:45

%S 12,19,24,25,28,35,38,39,44,48,49,50,51,52,56,57,60,67,70,71,75,76,77,

%T 78,79,83,88,89,92,96,97,98,99,100,101,102,103,104,105,108,112,113,

%U 114,115,116,120,121,124,131,134,135,139,140,141,142,143,147,150,151,152

%N Numbers having consecutive zeros and also consecutive ones in binary representation.

%C Intersection of A004753 and A004780; complement of A107909.

%H <a href="/index/Ar#2-automatic">Index entries for 2-automatic sequences</a>.

%t czcoQ[n_]:=Module[{c2=Partition[IntegerDigits[n,2],2,1]},MemberQ[c2,{0,0}]&&MemberQ[c2,{1,1}]]; Select[Range[200],czcoQ] (* _Harvey P. Dale_, Jul 24 2012 *)

%o (Python)

%o def ok(n): b = bin(n)[2:]; return "00" in b and "11" in b

%o print([k for k in range(153) if ok(k)]) # _Michael S. Branicky_, Dec 19 2021

%Y Cf. A007088, A107907.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, May 28 2005

%E Offset changed to 1 by _Michael S. Branicky_, Dec 19 2021