A048312 Numbers whose base-15 expansions, read from left to right, have run lengths that strictly increase.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 225, 241, 257, 273, 289, 305, 321, 337, 353, 369, 385, 401, 417, 433, 449, 450, 466, 482, 498, 514, 530, 546, 562, 578, 594, 610, 626, 642, 658, 674
Offset: 0
Programs
-
Mathematica
Select[Range[0,700],Min[Differences[Length/@Split[IntegerDigits[ #, 15]]]]>0&] (* Harvey P. Dale, Nov 08 2017 *)