A043184 - OEIS

%I #11 Aug 23 2021 01:05:29

%S 45,86,126,167,207,248,288,329,369,405,450,491,531,572,612,653,693,

%T 734,774,815,855,896,936,977,1017,1058,1098,1134,1179,1220,1260,1301,

%U 1341,1382,1422,1463,1503,1544,1584,1625,1665,1706

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

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{0,5}]>0 || SequenceCount[ IntegerDigits[n,9],{5,0}]>0,1,0],{n,1800}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 22 2018 *)

%Y Cf. A007095.

%K nonn,base

%O 1,1

%A _Clark Kimberling_