%I
%S 33,57,114,138,195,219,276,297,357,381,438,462,513,543,600,624,681,
%T 705,762,786,843,867,924,948,1005,1026,1086,1110,1167,1191,1242,1272,
%U 1329,1353,1410,1434,1491,1515,1572,1596,1653,1677
%N Numbers k such that 3 and 6 occur juxtaposed in the base9 representation of k but not of k1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{3,6}]>0  SequenceCount[IntegerDigits[n,9],{6,3}]>0,1,0],{n,1700}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 16 2019 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
