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 A162648 #14 Aug 20 2024 17:12:13
%S A162648 0,4,6,8,12,16,20,22,24,28,30,32,36,38,40,44,48,52,54,56,60,64,68,70,
%T A162648 72,76,80,84,86,88,92,94,96,100,102,104,108,112,116,118,120,124,126,
%U A162648 128,132,134,136,140,144,148,150,152,156,158,160,164,166,168,172,176,180
%N A162648 Locations of patterns 1001 or 0110 in the Thue-Morse sequence A010060.
%C A162648 Numbers n for which A010060(n+1) = A010060(n+2) = 1-A010060(n) and A010060(n+3) = A010060(n).
%C A162648 Or intersection of A121539, A161674, and A161579.
%H A162648 G. C. Greubel, <a href="/A162648/b162648.txt">Table of n, a(n) for n = 1..10000</a>
%F A162648 a(n) = A079523(n) - 1.
%t A162648 Select[Range[3500], MatchQ[IntegerDigits[#, 2], {b : (1) ..} | {___, 0, b : (1) ..} /; OddQ[Length[{b}]]] &] - 1 (* _G. C. Greubel_, Jan 05 2018 *)
%t A162648 With[{nn=200},Sort[Join[SequencePosition[ThueMorse[Range[0,nn]],{1,0,0,1}],SequencePosition[ ThueMorse[Range[0,nn]],{0,1,1,0}]]][[;;,1]]]-1 (* _Harvey P. Dale_, Aug 20 2024 *)
%o A162648 (PARI) is(n)=my(v=vector(4,i,hammingweight(n+i-1))); v[1]==v[4] && v[1]!=v[2] && v[1]!=v[3] \\ _Charles R Greathouse IV_, Aug 20 2013
%Y A162648 Cf. A161824, A161817, A161674, A161673, A161639, A161641, A161627, A161579, A161580, A121539, A131323, A036554, A010060, A079523, A081706.
%K A162648 nonn
%O A162648 1,2
%A A162648 _Vladimir Shevelev_, Jul 08 2009
%E A162648 More readable definition from _R. J. Mathar_, Sep 16 2009