login
Length of n-th run of digit 0 in A003137.
4

%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_