The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #7 Jul 11 2020 18:19:20
%S 70,134,198,262,326,390,454,518,560,582,646,710,774,838,902,966,1030,
%T 1072,1094,1158,1222,1286,1350,1414,1478,1542,1584,1606,1670,1734,
%U 1798,1862,1926,1990,2054,2096,2118,2182,2246,2310
%N Numbers n such that string 0,6 occurs in the base 8 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{0,6}]>0,1,0],{n,2500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 11 2020 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_