%I
%S 10,26,40,58,74,90,104,122,138,154,160,186,202,218,232,250,266,282,
%T 296,314,330,346,360,378,394,410,416,442,458,474,488,506,522,538,552,
%U 570,586,602,616,634,640,714,730,744,762,778,794
%N Numbers n such that string 2,2 occurs in the base 4 representation of n but not of n1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,4],{2,2}]>0,1,0],{n,1000}],{0,1}]][[2]] (* The program uses the SequencePosition and Sequence Count functions from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 23 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
