|
%I #7 Sep 15 2023 14:40:55
%S 14,50,84,122,158,194,230,266,300,338,374,410,446,482,504,554,590,626,
%T 662,698,732,770,806,842,878,914,948,986,1022,1058,1094,1130,1164,
%U 1202,1238,1274,1310,1346,1380,1418,1454,1490,1526
%N Numbers n such that string 2,2 occurs in the base 6 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{2,2}]>0,1,0],{n,1600}],{0,1}][[;;,2]] (* _Harvey P. Dale_, Sep 15 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
