login
A043961
Numbers k such that 0 and 2 occur juxtaposed in the base-9 representation of k but not of k+1.
0
18, 83, 99, 170, 180, 245, 261, 326, 342, 407, 423, 488, 504, 569, 585, 650, 666, 731, 755, 812, 828, 899, 909, 974, 990, 1055, 1071, 1136, 1152, 1217, 1233, 1298, 1314, 1379, 1395, 1538, 1541, 1557, 1628, 1638, 1703, 1719
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Cf. A007095.
Sequence in context: A159460 A043181 A039358 * A067984 A372400 A380416
KEYWORD
nonn,base
STATUS
approved