%I #12 Aug 22 2021 14:56:17

%S 6,11,15,18,24,29,33,38,42,45,51,54,65,69,72,78,83,87,92,96,99,110,

%T 114,119,123,126,132,135,146,150,153,159,162,191,195,200,204,207,213,

%U 216,227,231,234,240,245,249,254,258,261,272,276

%N Numbers k such that 0 and 2 occur juxtaposed in the base-3 representation of k but not of k-1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,3],{0,2}]>0 || SequenceCount[ IntegerDigits[n,3],{2,0}]>0,1,0],{n,300}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 10 2019 *)

%Y Cf. A007089.

%K nonn,base

%O 1,1

%A _Clark Kimberling_