%I #8 Oct 20 2014 04:24:15
%S 1,3,1,1,2,1,1,5,2,2,1,1,1,1,2,1,1,2,1,1,1,3,1,1,1,2,1,1,3,2,2,7,3,3,
%T 2,2,2,1,1,1,3,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,2,3,2,1,1,1,1,1,1,2,1,1,
%U 2,1,1,1,3,1,1,1,2,1,1,1,2,1,1,1,1,2,4,1,2,1
%N Length of n-th run of digit 1 in A030341.
%t Length/@Select[Split[Flatten[Table[Reverse[IntegerDigits[n,3]],{n,0,100}]]],First[#]==1&] (* _Harvey P. Dale_, Oct 20 2014 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|