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

0, 1, 2, 3, 4, 5, 6, 8, 16, 24, 32, 40, 48, 56, 57, 58, 59, 60, 61, 62, 112, 113, 114, 115, 116, 117, 118, 168, 169, 170, 171, 172, 173, 174, 224, 225, 226, 227, 228, 229, 230, 280, 281, 282, 283, 284, 285, 286, 336, 337, 338, 339, 340, 341, 342, 399, 400, 401

Offset: 0

Author

Patrick De Geest, Feb 15 1999

Keywords

• nonn
• base

Crossrefs

Cf. A037013, A043696, A043710, A044818, A044956.

Programs

Mathematica

Select[Range[0,500],Max[Differences[Length/@Split[IntegerDigits[ #, 7]]]]<0&] (* Harvey P. Dale, Apr 27 2018 *)