cp's OEIS Frontend

A044817 Positive integers having distinct base-6 run lengths.

%I A044817 #21 Jan 04 2021 18:18:52
%S A044817 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 A044817 86,87,88,89,93,100,107,108,115,122,126,127,128,129,130,131,136,143,
%U A044817 144,151,158,165,168,169,170,171,172,173,179,180,187,194,201,208,210,211
%N A044817 Positive integers having distinct base-6 run lengths.
%H A044817 Robert Israel, <a href="/A044817/b044817.txt">Table of n, a(n) for n = 1..10000</a>
%e A044817 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 A044817 filter:= proc(n) local L,R,s,t,i;
%p A044817   L:= convert(n,base,6);
%p A044817   R:= NULL; t:= 1; s:= L[1];
%p A044817   for i from 2 to nops(L) do
%p A044817     if L[i] <> s then
%p A044817       R:= R, t; t:= 1; s:= L[i]
%p A044817     else
%p A044817       t:= t+1
%p A044817     fi
%p A044817   od;
%p A044817   R:= R, t;
%p A044817   nops([R]) = nops({R})
%p A044817 end proc:
%p A044817 select(filter, [$1..1000]); # _Robert Israel_, Jan 17 2018
%Y A044817 Cf. A044813, A044814, A044815, A044816, A044817, A044818, A044819, A044820, A044821, A044822, A044823, A044824, A044825, A044826, A044827 (base 2 to base 16).
%K A044817 nonn,base
%O A044817 1,2
%A A044817 _Clark Kimberling_