|
%I #8 Oct 13 2019 16:39:06
%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,16,32,48,64,80,96,112,128,144,160,
%T 176,192,208,224,225,241,257,273,289,305,321,337,353,369,385,401,417,
%U 433,449,450,466,482,498,514,530,546,562,578,594,610,626,642,658,674
%N Numbers whose base-15 expansions, read from left to right, have run lengths that strictly increase.
%t Select[Range[0,700],Min[Differences[Length/@Split[IntegerDigits[ #, 15]]]]>0&] (* _Harvey P. Dale_, Nov 08 2017 *)
%Y Cf. A037015, A043704, A043718, A044826, A044964.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Feb 15 1999
|
