|
%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
|
