[go: up one dir, main page]

login
A048317
Numbers whose base-6 expansions, read from left to right, have run lengths that strictly decrease.
0
0, 1, 2, 3, 4, 5, 7, 14, 21, 28, 35, 42, 43, 44, 45, 46, 47, 84, 85, 86, 87, 88, 89, 126, 127, 128, 129, 130, 131, 168, 169, 170, 171, 172, 173, 210, 211, 212, 213, 214, 215, 258, 259, 260, 261, 262, 263, 516, 517, 518, 519, 520, 521, 774, 775, 776, 777, 778, 779
OFFSET
0,3
MATHEMATICA
Select[Range[0, 800], Max[Differences[Length/@Split[IntegerDigits[ #, 6]]]]<0&] (* Harvey P. Dale, Jul 30 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Feb 15 1999
STATUS
approved