cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A030597 Length of n-th run of digit 2 in A030588.

This page as a plain text file.
%I A030597 #11 Dec 30 2018 00:01:36
%S A030597 1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%T A030597 1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%U A030597 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,2,2,2
%N A030597 Length of n-th run of digit 2 in A030588.
%H A030597 Antti Karttunen, <a href="/A030597/b030597.txt">Table of n, a(n) for n = 1..20000</a>
%o A030597 (PARI)
%o A030597 up_to = 20000;
%o A030597 A030597list(up_to,d=2) = { 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 A030597 v030597 = A030597list(up_to);
%o A030597 A030597(n) = v030597[n]; \\ _Antti Karttunen_, Dec 24 2018
%Y A030597 Cf. A030588, A030596, A030598, A030599, A030600.
%K A030597 nonn,base
%O A030597 1,13
%A A030597 _Clark Kimberling_
%E A030597 Terms corrected (first incorrect term was at a(61)) and more terms added by _Antti Karttunen_, Dec 24 2018