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