This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A004752 #27 Apr 11 2021 04:52:23
%S A004752 10,18,20,21,26,34,36,37,40,41,42,43,50,52,53,58,66,68,69,72,73,74,75,
%T A004752 80,81,82,83,84,85,86,87,90,98,100,101,104,105,106,107,114,116,117,
%U A004752 122,130,132,133,136,137,138,139,144,145,146,147,148,149,150
%N A004752 Binary expansion contains 010.
%H A004752 Indranil Ghosh, <a href="/A004752/b004752.txt">Table of n, a(n) for n = 1..32769</a>
%H A004752 <a href="/index/Ar#2-automatic">Index entries for 2-automatic sequences</a>.
%F A004752 a(n) ~ n. - _Charles R Greathouse IV_, Oct 23 2015
%e A004752 20 is in the sequence because, 20 = 10100_2 and '10100' has '010' as one of its substrings. - _Indranil Ghosh_, Feb 11 2017
%t A004752 Select[Range@ 150, Length@ SequencePosition[IntegerDigits[#, 2], {0, 1, 0}] > 0 &] (* Version 10.1, or *)
%t A004752 Select[Range@ 150, MemberQ[Partition[IntegerDigits[#, 2], 3, 1], {0, 1, 0}] &] (* _Michael De Vlieger_, Feb 11 2017 *)
%o A004752 (Python)
%o A004752 i=j=0
%o A004752 while j<=100:
%o A004752 if "010" in bin(i)[2:]:
%o A004752 print(str(j)+" "+str(i))
%o A004752 j+=1
%o A004752 i+=1 # _Indranil Ghosh_, Feb 11 2017
%o A004752 (PARI) is(n)=while(n>9, if(bitand(n, 7)==2, return(1)); n>>=1); 0 \\ _Charles R Greathouse IV_, Feb 11 2017
%Y A004752 Cf. A004748, A004749, A004750, A004751, A004753.
%K A004752 nonn,base,easy
%O A004752 1,1
%A A004752 _N. J. A. Sloane_
%E A004752 Offset corrected by _Charles R Greathouse IV_, Feb 11 2017