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 A132782 #9 Oct 22 2021 11:53:08
%S A132782 10,20,21,26,40,41,42,43,52,53,58,74,80,81,82,83,84,85,86,87,90,104,
%T A132782 105,106,107,116,117,122,138,148,149,154,160,161,162,163,164,165,166,
%U A132782 167,168,169,170,171,172,173,174,175,180,181,186,202,208,209,210,211,212
%N A132782 Numbers with at least one occurrence of '1010' in binary representation.
%C A132782 Complement of A132781; subsequence of A062289; A000975 is a subsequence apart of the initial 4 terms.
%H A132782 R. Zumkeller, <a href="/A132782/b132782.txt">Table of n, a(n) for n = 1..10000</a>
%H A132782 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%p A132782 q:= n-> verify([0, 1, 0, 1], Bits[Split](n), 'sublist'):
%p A132782 select(q, [$0..300])[]; # _Alois P. Heinz_, Oct 22 2021
%t A132782 Select[Range[250],SequenceCount[IntegerDigits[#,2],{1,0,1,0}]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 08 2017 *)
%K A132782 nonn,base
%O A132782 1,1
%A A132782 _Reinhard Zumkeller_, Aug 30 2007