|
%I #11 Aug 26 2021 15:28:55
%S 18,83,99,170,180,245,261,326,342,407,423,488,504,569,585,650,666,731,
%T 755,812,828,899,909,974,990,1055,1071,1136,1152,1217,1233,1298,1314,
%U 1379,1395,1538,1541,1557,1628,1638,1703,1719
%N Numbers k such that 0 and 2 occur juxtaposed in the base-9 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{0,2}]>0 || SequenceCount[IntegerDigits[n,9],{2,0}]>0,1,0],{n,1800}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 12 2020 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
