cp's OEIS Frontend

A004750 Numbers whose binary expansion contains the substring '011'.

%I A004750 #43 Apr 11 2021 04:52:27
%S A004750 11,19,22,23,27,35,38,39,43,44,45,46,47,51,54,55,59,67,70,71,75,76,77,
%T A004750 78,79,83,86,87,88,89,90,91,92,93,94,95,99,102,103,107,108,109,110,
%U A004750 111,115,118,119,123,131,134,135,139,140,141,142,143,147,150
%N A004750 Numbers whose binary expansion contains the substring '011'.
%H A004750 Indranil Ghosh, <a href="/A004750/b004750.txt">Table of n, a(n) for n = 1..32769</a> (terms 1..1001 from Harvey P. Dale)
%H A004750 <a href="/index/Ar#2-automatic">Index entries for 2-automatic sequences</a>.
%F A004750 a(n) ~ n. - _Charles R Greathouse IV_, Oct 23 2015
%e A004750 19 is in the sequence because 19 = 10011_2 and '10011' has '011' as one of its substrings. - _Indranil Ghosh_, Feb 11 2017
%t A004750 Select[Range[200],MemberQ[Partition[IntegerDigits[#,2],3,1],{0,1,1}]&] (* _Harvey P. Dale_, Apr 14 2014 *)
%t A004750 Select[Range[200],SequenceCount[IntegerDigits[#,2],{0,1,1}]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 01 2021 *)
%o A004750 (Python)
%o A004750 i=j=0
%o A004750 while j<=100:
%o A004750     if "011" in bin(i)[2:]:
%o A004750         print(str(j)+" "+str(i))
%o A004750         j+=1
%o A004750     i+=1 # _Indranil Ghosh_, Feb 11 2017
%o A004750 (PARI) is(n)=while(n>10, if(bitand(n, 7)==3, return(1)); n>>=1); 0 \\ _Charles R Greathouse IV_, Feb 11 2017
%Y A004750 Cf. A004749, A004751, A004752, A004753.
%K A004750 nonn,easy,base
%O A004750 1,1
%A A004750 _N. J. A. Sloane_
%E A004750 Offset corrected by _Charles R Greathouse IV_, Feb 11 2017