The On-Line Encyclopedia of Integer Sequences (OEIS)

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

Revision History for A004781

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A004781

Binary expansion contains 3 adjacent 1's.
(history; published version)

#26 by Jon E. Schoenfield at Thu Oct 26 22:51:04 EDT 2023

STATUS

editing

approved

#25 by Jon E. Schoenfield at Thu Oct 26 22:51:01 EDT 2023

AUTHOR

N. J. A. Sloane.

STATUS

approved

editing

#24 by Harvey P. Dale at Tue Dec 28 15:32:28 EST 2021

STATUS

editing

approved

#23 by Harvey P. Dale at Tue Dec 28 15:32:26 EST 2021

MATHEMATICA

Select[Range[200], SequenceCount[IntegerDigits[#, 2], {1, 1, 1}]>0&] (* Harvey P. Dale, Dec 28 2021 *)

STATUS

approved

editing

#22 by Alois P. Heinz at Fri Oct 22 11:57:02 EDT 2021

STATUS

proposed

approved

#21 by Amiram Eldar at Fri Oct 22 11:44:17 EDT 2021

STATUS

editing

proposed

#20 by Amiram Eldar at Fri Oct 22 11:43:36 EDT 2021

MATHEMATICA

Select[Range[200], StringContainsQ[IntegerString[#, 2], "111"] &] (* Amiram Eldar, Oct 22 2021 *)

KEYWORD

nonn,base,easy,changed

STATUS

approved

editing

Discussion

Fri Oct 22

11:44

Amiram Eldar: Added a much faster Mathematica code and keyword "base".

#19 by Alois P. Heinz at Fri Oct 22 11:16:13 EDT 2021

STATUS

editing

approved

#18 by Alois P. Heinz at Fri Oct 22 11:16:10 EDT 2021

MAPLE

q:= n-> verify([1$3], Bits[Split](n), 'sublist'):

select(q, [$0..200])[]; # Alois P. Heinz, Oct 22 2021

STATUS

approved

editing

#17 by Charles R Greathouse IV at Sat Feb 11 23:47:11 EST 2017

STATUS

editing

approved