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

0, 1, 2, 3, 4, 5, 6, 8, 16, 24, 32, 40, 48, 56, 57, 58, 59, 60, 61, 62, 112, 113, 114, 115, 116, 117, 118, 168, 169, 170, 171, 172, 173, 174, 224, 225, 226, 227, 228, 229, 230, 280, 281, 282, 283, 284, 285, 286, 336, 337, 338, 339, 340, 341, 342, 399, 400, 401

Offset

0,3

Links

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

Mathematica

Select[Range[0, 500], Max[Differences[Length/@Split[IntegerDigits[ #, 7]]]]<0&] (* Harvey P. Dale, Apr 27 2018 *)

Crossrefs

Cf. A037013, A043696, A043710, A044818, A044956.

Sequence in context: A296703 A297262 A029954 * A037402 A048332 A249158

Adjacent sequences: A048315 A048316 A048317 * A048319 A048320 A048321

Keyword

nonn,base

Author

Patrick De Geest, Feb 15 1999

Status

approved