The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #11 Sep 30 2023 15:31:12
%S 28,82,128,182,228,289,328,382,428,482,528,582,628,682,728,782,829,
%T 882,928,982,1028,1082,1128,1182,1228,1289,1328,1382,1428,1482,1528,
%U 1582,1628,1682,1728,1782,1829,1882,1928,1982,2028
%N Numbers k such that 2 and 8 occur juxtaposed in the base-10 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{2,8}]>0|| SequenceCount[ IntegerDigits[n],{8,2}]>0,1,0],{n,2100}],{1,0}][[;;,1]] (* _Harvey P. Dale_, Sep 30 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_