%I #14 Aug 20 2024 17:12:13
%S 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 72,76,80,84,86,88,92,94,96,100,102,104,108,112,116,118,120,124,126,
%U 128,132,134,136,140,144,148,150,152,156,158,160,164,166,168,172,176,180
%N Locations of patterns 1001 or 0110 in the Thue-Morse sequence A010060.
%C Numbers n for which A010060(n+1) = A010060(n+2) = 1-A010060(n) and A010060(n+3) = A010060(n).
%C Or intersection of A121539, A161674, and A161579.
%H G. C. Greubel, <a href="/A162648/b162648.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A079523(n) - 1.
%t Select[Range[3500], MatchQ[IntegerDigits[#, 2], {b : (1) ..} | {___, 0, b : (1) ..} /; OddQ[Length[{b}]]] &] - 1 (* _G. C. Greubel_, Jan 05 2018 *)
%t 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 (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 Cf. A161824, A161817, A161674, A161673, A161639, A161641, A161627, A161579, A161580, A121539, A131323, A036554, A010060, A079523, A081706.
%K nonn
%O 1,2
%A _Vladimir Shevelev_, Jul 08 2009
%E More readable definition from _R. J. Mathar_, Sep 16 2009