|
%I #18 Jan 04 2021 18:20:14
%S 1,2,3,4,5,6,7,8,9,10,11,12,14,28,42,56,70,84,98,112,126,140,154,168,
%T 169,182,183,184,185,186,187,188,189,190,191,192,193,194,197,211,225,
%U 239,253,267,281,295,309,323,337,338,352,364,365,366,367,368,369,370,371
%N Positive integers having distinct base-13 run lengths.
%H David A. Corneth, <a href="/A044824/b044824.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Harvey P. Dale)
%e 338 = 200_13 is in the sequence as it has distinct run lengths of distinct digits (2, 1). - _David A. Corneth_, Jan 04 2021
%t Select[Range[400],Union[Tally[Length/@Split[IntegerDigits[#,13]]][[All,2]]] == {1}&] (* _Harvey P. Dale_, Sep 15 2020 *)
%Y Cf. A044813, A044814, A044815, A044816, A044817, A044818, A044819, A044820, A044821, A044822, A044823, A044824, A044825, A044826, A044827 (base 2 to base 16).
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
