A048305 Numbers whose base-8 expansions, read from left to right, have run lengths that strictly increase.
0, 1, 2, 3, 4, 5, 6, 7, 9, 18, 27, 36, 45, 54, 63, 64, 73, 82, 91, 100, 109, 118, 127, 128, 137, 146, 155, 164, 173, 182, 191, 192, 201, 210, 219, 228, 237, 246, 255, 256, 265, 274, 283, 292, 301, 310, 319, 320, 329, 338, 347, 356, 365, 374, 383, 384, 393, 402
Offset: 0
Programs
-
Mathematica
Select[Range[0,500],Min[Differences[Length/@Split[IntegerDigits[ #,8]]]]>0&] (* Harvey P. Dale, Dec 06 2018 *)