A033019 Numbers whose base-6 expansion has no run of digits with length < 2.

7, 14, 21, 28, 35, 43, 86, 129, 172, 215, 252, 259, 266, 273, 280, 287, 504, 511, 518, 525, 532, 539, 756, 763, 770, 777, 784, 791, 1008, 1015, 1022, 1029, 1036, 1043, 1260, 1267, 1274, 1281, 1288, 1295, 1512, 1548, 1555, 1562

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 6]]]>1&] (* Vincenzo Librandi, Feb 05 2014 *)

Crossrefs

Cf. A007092.

Sequence in context: A043393 A028437 A187395 * A031483 A020334 A044832

Adjacent sequences: A033016 A033017 A033018 * A033020 A033021 A033022

Keyword

nonn,base

Author

Clark Kimberling

Status

approved