The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #9 Dec 25 2016 11:35:31
%S 30,94,158,222,240,286,350,414,478,542,606,670,734,752,798,862,926,
%T 990,1054,1118,1182,1246,1264,1310,1374,1438,1502,1566,1630,1694,1758,
%U 1776,1822,1886,1920,2014,2078,2142,2206,2270,2288
%N Numbers n such that string 3,6 occurs in the base 8 representation of n but not of n-1.
%H Harvey P. Dale, <a href="/A044217/b044217.txt">Table of n, a(n) for n = 1..1000</a>
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{3,6}]>0,1,0],{n,2300}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 25 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_