A043157 - OEIS

%I #10 Aug 22 2021 22:37:19

%S 48,70,112,134,176,198,240,262,304,326,368,384,432,454,496,518,560,

%T 582,624,646,688,710,752,774,816,838,880,896,944,966,1008,1030,1072,

%U 1094,1136,1158,1200,1222,1264,1286,1328,1350,1392

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

%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{0,6}]>0||SequenceCount[IntegerDigits[n,8],{6,0}]>0,1,0],{n,1400}],{0,1}]][[2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 15 2016 *)

%Y Cf. A007094.

%K nonn,base

%O 1,1

%A _Clark Kimberling_