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

0, 1, 2, 3, 4, 5, 6, 7, 9, 18, 27, 36, 45, 54, 63, 72, 73, 74, 75, 76, 77, 78, 79, 144, 145, 146, 147, 148, 149, 150, 151, 216, 217, 218, 219, 220, 221, 222, 223, 288, 289, 290, 291, 292, 293, 294, 295, 360, 361, 362, 363, 364, 365, 366, 367, 432, 433, 434, 435

Offset

0,3

Links

Table of n, a(n) for n=0..58.

Mathematica

Select[Range[0, 500], Max[Differences[Length/@Split[IntegerDigits[#, 8]]]] < 0&] (* Harvey P. Dale, Nov 14 2020 *)

Crossrefs

Cf. A037013, A043697, A043711, A044819, A044957.

Sequence in context: A296706 A029803 A297265 * A037405 A048333 A007496

Adjacent sequences: A048316 A048317 A048318 * A048320 A048321 A048322

Keyword

nonn,base

Author

Patrick De Geest, Feb 15 1999

Status

approved