Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Aug 23 2021 06:36:23
%S 53,77,134,158,215,239,296,320,377,401,458,477,539,563,620,644,693,
%T 725,782,806,863,887,944,968,1025,1049,1106,1130,1187,1206,1268,1292,
%U 1349,1373,1422,1454,1511,1535,1592,1616,1673,1697
%N Numbers k such that 5 and 8 occur juxtaposed in the base-9 representation of k but not of k-1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{5,8}]>0||SequenceCount[IntegerDigits[n,9],{8,5}]>0,1,0],{n,2000}],{0,1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 23 2015 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_