login
A043896
Numbers k such that 0 and 1 occur juxtaposed in the base-6 representation of k but not of k+1.
0
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
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
KEYWORD
nonn,base
STATUS
approved