login
A048319
Numbers whose base-8 expansions, read from left to right, have run lengths that strictly decrease.
0
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
MATHEMATICA
Select[Range[0, 500], Max[Differences[Length/@Split[IntegerDigits[#, 8]]]] < 0&] (* Harvey P. Dale, Nov 14 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Feb 15 1999
STATUS
approved