login
A043098
Numbers k such that 0 and 2 occur juxtaposed in the base-3 representation of k but not of k-1.
0
6, 11, 15, 18, 24, 29, 33, 38, 42, 45, 51, 54, 65, 69, 72, 78, 83, 87, 92, 96, 99, 110, 114, 119, 123, 126, 132, 135, 146, 150, 153, 159, 162, 191, 195, 200, 204, 207, 213, 216, 227, 231, 234, 240, 245, 249, 254, 258, 261, 272, 276
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 3], {0, 2}]>0 || SequenceCount[ IntegerDigits[n, 3], {2, 0}]>0, 1, 0], {n, 300}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 10 2019 *)
CROSSREFS
Cf. A007089.
Sequence in context: A315392 A315393 A315394 * A039276 A044995 A135708
KEYWORD
nonn,base
STATUS
approved