The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #7 Dec 24 2018 16:33:08
%S 32,96,160,224,263,288,352,416,480,544,608,672,736,775,800,864,928,
%T 992,1056,1120,1184,1248,1287,1312,1376,1440,1504,1568,1632,1696,1760,
%U 1799,1824,1888,1952,2016,2111,2144,2208,2272,2311
%N Numbers n such that string 4,0 occurs in the base 8 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{4,0}]>0,1,0],{n,2500}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 24 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_