%I
%S 38,52,102,116,166,180,230,244,294,304,358,372,416,436,486,500,550,
%T 564,614,628,678,692,742,756,806,816,870,884,928,948,998,1012,1062,
%U 1076,1126,1140,1190,1204,1254,1268,1318,1328,1382
%N Numbers k such that 4 and 6 occur juxtaposed in the base8 representation of k but not of k1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{4,6}]>0  SequenceCount[IntegerDigits[n,8],{6,4}]>0,1,0],{n,1500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 19 2019 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
