|
%I #12 Jul 13 2013 12:01:54
%S 1,1,3,1,1,1,2,2,5,1,1,2,1,1,2,1,1,1,1,2,1,1,1,3,1,1,1,2,2,2,3,3,7,2,
%T 2,3,1,1,2,1,1,1,3,1,1,1,2,1,1,2,1,1,1,1,1,1,2,3,2,1,1,1,1,1,1,2,1,1,
%U 1,1,2,1,1,1,3,1,1,1,2,1,1,1,1,2,1,1,2,1,4,2
%N Length of n-th run of digit 1 in A003137.
%H Reinhard Zumkeller, <a href="/A030337/b030337.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.List (group)
%o a030337 n = a030337_list !! (n-1)
%o a030337_list = map length $ filter ((== 1) . head) $ group a003137_list
%o -- _Reinhard Zumkeller_, Feb 21 2013
%Y Cf. A030336, A030338, A030333.
%K nonn,base
%O 1,3
%A _Clark Kimberling_
|
