|
%I #8 Oct 13 2019 16:43:04
%S 0,1,2,3,4,5,7,14,21,28,35,36,43,50,57,64,71,72,79,86,93,100,107,108,
%T 115,122,129,136,143,144,151,158,165,172,179,180,187,194,201,208,215,
%U 216,259,302,345,388,431,432,475,518,561,604,647,648,691,734,777,820
%N Numbers whose base-6 expansions, read from left to right, have run lengths that strictly increase.
%t Select[Range[0,900],Min[Differences[Length/@Split[IntegerDigits[ #,6]]]]> 0&] (* _Harvey P. Dale_, Jan 14 2014 *)
%Y Cf. A037015, A043695, A043709, A044817, A044955.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Feb 15 1999
|
