A030600 - OEIS

%I #11 Dec 30 2018 00:02:21

%S 1,1,1,1,2,1,2,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,1,

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

%U 1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1

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

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

%o (PARI)

%o up_to = 20000;

%o A030600list(up_to,d=5) = { 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 v030600 = A030600list(up_to);

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

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

%K nonn,base

%O 1,5

%A _Clark Kimberling_