A048303 Numbers whose base-6 expansions, read from left to right, have run lengths that strictly increase.
0, 1, 2, 3, 4, 5, 7, 14, 21, 28, 35, 36, 43, 50, 57, 64, 71, 72, 79, 86, 93, 100, 107, 108, 115, 122, 129, 136, 143, 144, 151, 158, 165, 172, 179, 180, 187, 194, 201, 208, 215, 216, 259, 302, 345, 388, 431, 432, 475, 518, 561, 604, 647, 648, 691, 734, 777, 820
Offset: 0
Programs
-
Mathematica
Select[Range[0,900],Min[Differences[Length/@Split[IntegerDigits[ #,6]]]]> 0&] (* Harvey P. Dale, Jan 14 2014 *)