|
%I #11 Aug 23 2021 01:07:15
%S 17,73,98,153,179,235,260,316,341,397,422,478,503,559,584,640,657,721,
%T 746,802,827,882,908,964,989,1045,1070,1126,1151,1207,1232,1288,1313,
%U 1369,1377,1475,1531,1556,1611,1637,1693,1718
%N Numbers k such that 1 and 8 occur juxtaposed in the base-9 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{1,8}]> 0 || SequenceCount[IntegerDigits[n,9],{8,1}]>0,1,0],{n,2000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 23 2019 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
