|
%I #12 Aug 27 2021 11:06:04
%S 80,108,180,208,280,308,380,408,480,508,580,608,680,708,780,809,880,
%T 908,980,1008,1089,1108,1180,1208,1280,1308,1380,1408,1480,1508,1580,
%U 1608,1680,1708,1780,1809,1880,1908,1980,2008,2089
%N Numbers k such that 0 and 8 occur juxtaposed in the base-10 representation of k but not of k+1.
%H Michael De Vlieger, <a href="/A044003/b044003.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{j = 0, k = 8}, Position[Partition[Array[Boole[Total@ {SequenceCount[#, {j, k}], SequenceCount[#, {k, j}]} > 0] &@ IntegerDigits[#] &, 2100], 2, 1], {1, 0}][[All, 1]]] (* _Michael De Vlieger_, Aug 27 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
