|
|
A048318
|
|
Numbers whose base-7 expansions, read from left to right, have run lengths that strictly decrease.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
|