A048317 - OEIS

%I #8 Oct 13 2019 16:33:35

%S 0,1,2,3,4,5,7,14,21,28,35,42,43,44,45,46,47,84,85,86,87,88,89,126,

%T 127,128,129,130,131,168,169,170,171,172,173,210,211,212,213,214,215,

%U 258,259,260,261,262,263,516,517,518,519,520,521,774,775,776,777,778,779

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

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

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

%K nonn,base

%O 0,3

%A _Patrick De Geest_, Feb 15 1999