|
%I #21 Jan 04 2021 18:18:52
%S 1,2,3,4,5,7,14,21,28,35,36,42,43,44,45,46,47,50,57,64,71,72,79,84,85,
%T 86,87,88,89,93,100,107,108,115,122,126,127,128,129,130,131,136,143,
%U 144,151,158,165,168,169,170,171,172,173,179,180,187,194,201,208,210,211
%N Positive integers having distinct base-6 run lengths.
%H Robert Israel, <a href="/A044817/b044817.txt">Table of n, a(n) for n = 1..10000</a>
%e 93 = 233_6 is in the sequence as it has distinct run lengths of same digits (1, 2). - _David A. Corneth_, Jan 04 2021
%p filter:= proc(n) local L,R,s,t,i;
%p L:= convert(n,base,6);
%p R:= NULL; t:= 1; s:= L[1];
%p for i from 2 to nops(L) do
%p if L[i] <> s then
%p R:= R, t; t:= 1; s:= L[i]
%p else
%p t:= t+1
%p fi
%p od;
%p R:= R, t;
%p nops([R]) = nops({R})
%p end proc:
%p select(filter, [$1..1000]); # _Robert Israel_, Jan 17 2018
%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_
|
