The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #7 Jul 26 2017 16:20:30
%S 4,16,36,52,64,100,116,132,144,164,180,196,208,228,244,256,356,372,
%T 388,400,420,436,452,464,484,500,516,528,548,564,576,612,628,644,656,
%U 676,692,708,720,740,756,772,784,804,820,832,868
%N Numbers n such that string 1,0 occurs in the base 4 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,4],{1,0}]>0,1,0],{n,900}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 26 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_