|
%I #13 Aug 28 2021 02:50:20
%S 18,81,118,189,218,281,318,381,418,481,518,581,618,681,718,781,819,
%T 881,918,981,1018,1081,1118,1189,1218,1281,1318,1381,1418,1481,1518,
%U 1581,1618,1681,1718,1781,1899,1918,1981,2018,2081
%N Numbers k such that 1 and 8 occur juxtaposed in the base-10 representation of k but not of k+1.
%H Michael De Vlieger, <a href="/A044011/b044011.txt">Table of n, a(n) for n = 1..10000</a>
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{1,8}]>0 || SequenceCount[ IntegerDigits[n],{8,1}]>0,1,0],{n,2200}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 11 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
