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

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

Links

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

Mathematica

Select[Range[0, 800], Max[Differences[Length/@Split[IntegerDigits[ #, 6]]]]<0&] (* Harvey P. Dale, Jul 30 2019 *)

Crossrefs

Cf. A037013, A043695, A043709, A044817, A044955.

Sequence in context: A296700 A297259 A029953 * A037398 A048331 A133476

Adjacent sequences: A048314 A048315 A048316 * A048318 A048319 A048320

Keyword

nonn,base

Author

Patrick De Geest, Feb 15 1999

Status

approved