A048317 Numbers whose base-6 expansions, read from left to right, have run lengths that strictly decrease.

0, 1, 2, 3, 4, 5, 7, 14, 21, 28, 35, 42, 43, 44, 45, 46, 47, 84, 85, 86, 87, 88, 89, 126, 127, 128, 129, 130, 131, 168, 169, 170, 171, 172, 173, 210, 211, 212, 213, 214, 215, 258, 259, 260, 261, 262, 263, 516, 517, 518, 519, 520, 521, 774, 775, 776, 777, 778, 779

Offset: 0

Author

Patrick De Geest, Feb 15 1999

Keywords

• nonn
• base

Crossrefs

Cf. A037013, A043695, A043709, A044817, A044955.

Programs

Mathematica

Select[Range[0,800],Max[Differences[Length/@Split[IntegerDigits[ #,6]]]]<0&] (* Harvey P. Dale, Jul 30 2019 *)