A043908 Numbers k such that 3 and 4 occur juxtaposed in the base-6 representation of k but not of k+1.

22, 27, 58, 63, 94, 99, 130, 137, 167, 171, 202, 207, 238, 243, 274, 279, 310, 315, 346, 353, 383, 387, 418, 423, 454, 459, 490, 495, 526, 531, 562, 569, 599, 603, 634, 639, 670, 675, 706, 711, 742, 747, 778, 785, 827, 850, 855

Offset

1,1

Links

Table of n, a(n) for n=1..47.

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {3, 4}]>0 || SequenceCount[ IntegerDigits[n, 6], {4, 3}]>0, 1, 0], {n, 1000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 20 2019 *)

Crossrefs

Cf. A007092.

Sequence in context: A172053 A038355 A043128 * A177679 A276184 A336585

Adjacent sequences: A043905 A043906 A043907 * A043909 A043910 A043911

Keyword

nonn,base

Author

Clark Kimberling

Status

approved