The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #7 May 17 2021 12:43:18
%S 53,134,215,296,377,458,485,539,620,701,782,863,944,1025,1106,1187,
%T 1214,1268,1349,1430,1511,1592,1673,1754,1835,1916,1943,1997,2078,
%U 2159,2240,2321,2402,2483,2564,2645,2672,2726,2807
%N Numbers n such that string 5,8 occurs in the base 9 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{5,8}]>0,1,0],{n,3000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 17 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_