

A004749


Numbers whose binary expansion contains the substring '110'.


7



6, 12, 13, 14, 22, 24, 25, 26, 27, 28, 29, 30, 38, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 70, 76, 77, 78, 86, 88, 89, 90, 91, 92, 93, 94, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Indranil Ghosh, Table of n, a(n) for n = 1..50000
Index entries for 2automatic sequences.


FORMULA

a(n) ~ n.  Charles R Greathouse IV, Oct 23 2015


EXAMPLE

22 is in the sequence because 22 = 10110_2 and '10110' has '110' as one of its substrings.  Indranil Ghosh, Feb 11 2017


MATHEMATICA

Select[Range[200], SequenceCount[IntegerDigits[#, 2], {1, 1, 0}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 07 2017 *)


PROG

(Python)
i=j=0
while j<=50000:
....if "110" in bin(i)[2:]:
........print str(j)+" "+str(i)
........j+=1
....i+=1 # Indranil Ghosh, Feb 11 2017
(PARI) is(n)=while(n>5, if(bitand(n, 7)==6, return(1)); n>>=1); 0 \\ Charles R Greathouse IV, Feb 11 2017


CROSSREFS

Cf. A004748, A004750, A004751, A004752, A004753.
Sequence in context: A028588 A327569 A221433 * A107687 A297258 A296702
Adjacent sequences: A004746 A004747 A004748 * A004750 A004751 A004752


KEYWORD

nonn,base,easy


AUTHOR

N. J. A. Sloane


EXTENSIONS

Offset corrected by Charles R Greathouse IV, Feb 11 2017


STATUS

approved



