%I
%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 n such that 0 and 8 occur juxtaposed in the base 10 representation of n but not of n1.
%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_
