The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A107911

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A107911

Numbers having consecutive zeros and also consecutive ones in binary representation.
(history; published version)

#9 by Michael De Vlieger at Sun Dec 19 08:21:45 EST 2021

STATUS

reviewed

approved

#8 by Joerg Arndt at Sun Dec 19 08:08:25 EST 2021

STATUS

proposed

reviewed

#7 by Michael S. Branicky at Sun Dec 19 07:45:42 EST 2021

STATUS

editing

proposed

#6 by Michael S. Branicky at Sun Dec 19 07:35:18 EST 2021

OFFSET

0,1,1

LINKS

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

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

EXTENSIONS

Offset changed to 1 by Michael S. Branicky, Dec 19 2021

STATUS

approved

editing

#5 by Harvey P. Dale at Tue Jul 24 18:03:05 EDT 2012

STATUS

editing

approved

#4 by Harvey P. Dale at Tue Jul 24 18:02:44 EDT 2012

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 *)

STATUS

approved

editing

#3 by Russ Cox at Fri Mar 30 18:50:50 EDT 2012

AUTHOR

_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, May 28 2005

Discussion

Fri Mar 30

18:50

OEIS Server: https://oeis.org/edit/global/246

#2 by N. J. A. Sloane at Fri Jan 09 03:00:00 EST 2009

KEYWORD

nonn,new

nonn

AUTHOR

Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystemsgmail.com), May 28 2005

#1 by N. J. A. Sloane at Tue Jul 19 03:00:00 EDT 2005

NAME

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

DATA

12, 19, 24, 25, 28, 35, 38, 39, 44, 48, 49, 50, 51, 52, 56, 57, 60, 67, 70, 71, 75, 76, 77, 78, 79, 83, 88, 89, 92, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 108, 112, 113, 114, 115, 116, 120, 121, 124, 131, 134, 135, 139, 140, 141, 142, 143, 147, 150, 151, 152

OFFSET

0,1

COMMENTS

Intersection of A004753 and A004780; complement of A107909.

CROSSREFS

Cf. A007088, A107907.

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com), May 28 2005

STATUS

approved