login
A043203
Numbers k such that 3 and 6 occur juxtaposed in the base-9 representation of k but not of k-1.
0
33, 57, 114, 138, 195, 219, 276, 297, 357, 381, 438, 462, 513, 543, 600, 624, 681, 705, 762, 786, 843, 867, 924, 948, 1005, 1026, 1086, 1110, 1167, 1191, 1242, 1272, 1329, 1353, 1410, 1434, 1491, 1515, 1572, 1596, 1653, 1677
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {3, 6}]>0 || SequenceCount[IntegerDigits[n, 9], {6, 3}]>0, 1, 0], {n, 1700}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 16 2019 *)
CROSSREFS
Cf. A007095.
Sequence in context: A350598 A260872 A039380 * A043983 A080673 A140156
KEYWORD
nonn,base
STATUS
approved