%I #8 Dec 30 2018 15:08:55
%S 1,1,3,1,1,1,1,1,2,1,2,5,2,1,1,2,1,1,1,2,1,1,1,2,1,1,1,1,1,1,2,1,1,1,
%T 1,1,1,2,1,1,1,1,3,1,1,1,1,1,2,1,1,1,2,1,2,2,3,2,3,7,3,2,2,3,2,2,2,3,
%U 2,1,1,2,1,1,1,1,3,1,1,1,1,1,2,1,1,1,2,1,1,1
%N Length of n-th run of digit 1 in A030373.
%t Length/@Select[Split[Flatten[IntegerDigits[Range[200],4]]],MemberQ[#,1]&] (* _Harvey P. Dale_, Dec 30 2018 *)
%K nonn,base
%O 1,3
%A _Clark Kimberling_
|