OFFSET
1,1
MATHEMATICA
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 *)
PROG
(Python)
def ok(n): b = bin(n)[2:]; return "00" in b and "11" in b
print([k for k in range(153) if ok(k)]) # Michael S. Branicky, Dec 19 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 28 2005
EXTENSIONS
Offset changed to 1 by Michael S. Branicky, Dec 19 2021
STATUS
approved