|
%I #9 Nov 19 2019 17:29:55
%S 10,26,43,58,74,90,107,122,138,154,175,186,202,218,235,250,266,282,
%T 299,314,330,346,363,378,394,410,431,442,458,474,491,506,522,538,555,
%U 570,586,602,619,634,703,714,730,747,762,778,794,811,826,842,858,875,890
%N Numbers n such that string 2,2 occurs in the base 4 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,4],{2,2}]>0,1,0],{n,1200}],{1,0}][[All,1]](* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 19 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
%E More terms from _Harvey P. Dale_, Nov 19 2019
|
