login
A043129
Numbers k such that 3 and 5 occur juxtaposed in the base-6 representation of k but not of k-1.
0
23, 33, 59, 69, 95, 105, 131, 138, 167, 177, 198, 213, 239, 249, 275, 285, 311, 321, 347, 354, 383, 393, 414, 429, 455, 465, 491, 501, 527, 537, 563, 570, 599, 609, 630, 645, 671, 681, 707, 717, 743, 753, 779, 786, 815, 825, 828
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {3, 5}]>0 || SequenceCount[ IntegerDigits[n, 6], {5, 3}]>0, 1, 0], {n, 1000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 05 2017 *)
CROSSREFS
Cf. A007092.
Sequence in context: A264101 A355118 A038356 * A043909 A145566 A146595
KEYWORD
nonn,base
STATUS
approved