A043223 - OEIS

%I #10 Aug 23 2021 21:44:56

%S 80,108,180,208,280,308,380,408,480,508,580,608,680,708,780,800,880,

%T 908,980,1008,1080,1108,1180,1208,1280,1308,1380,1408,1480,1508,1580,

%U 1608,1680,1708,1780,1800,1880,1908,1980,2008,2080

%N Numbers k such that 0 and 8 occur juxtaposed in the base-10 representation of k but not of k-1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{0,8}]>0 || SequenceCount[ IntegerDigits[n],{8,0}]>0,1,0],{n,2100}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 21 2017 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_