A043896 Numbers k such that 0 and 1 occur juxtaposed in the base-6 representation of k but not of k+1.

6, 42, 73, 78, 109, 114, 145, 150, 181, 186, 258, 289, 294, 325, 330, 361, 366, 397, 402, 433, 443, 474, 505, 510, 541, 546, 577, 582, 613, 618, 649, 659, 690, 721, 726, 757, 762, 793, 798, 829, 834, 865, 875, 906, 937, 942, 973

Offset

1,1

Links

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

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {0, 1}]>0 || SequenceCount[IntegerDigits[n, 6], {1, 0}]>0, 1, 0], {n, 1000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 24 2018 *)

Crossrefs

Cf. A007092.

Sequence in context: A176308 A103763 A191764 * A044489 A211616 A153786

Adjacent sequences: A043893 A043894 A043895 * A043897 A043898 A043899

Keyword

nonn,base

Author

Clark Kimberling

Status

approved