A030596 - OEIS

%I #10 Dec 26 2018 11:53:47

%S 1,3,1,1,1,1,1,1,2,1,5,2,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,1,1,1,1,1,2,

%T 1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1,3,1,1,1,1,2,1,1,

%U 2,1,1,2,1,1,2,1,2,3,2,7,3,2,3,2,2,3,2,2,3,2

%N Length of n-th run of digit 1 in A030588.

%H Antti Karttunen, <a href="/A030596/b030596.txt">Table of n, a(n) for n = 1..20000</a>

%o (PARI)

%o up_to = 20000;

%o A030596list(up_to,d=1) = { my(v=vector(up_to),ds=List([]),o=1,j=1,rl=0,i=0); while(i<up_to,if(j>#ds,ds=digits(o,6);j=1;o+=2); if(d==ds[j],rl++,if(rl,i++; v[i] = rl; rl=0)); j++); (v); };

%o v030596 = A030596list(up_to);

%o A030596(n) = v030596[n]; \\ _Antti Karttunen_, Dec 24 2018

%Y Cf. A030588, A030597, A030598, A030599, A030600.

%K nonn,base

%O 1,2

%A _Clark Kimberling_