login
A030336
Length of n-th run of digit 0 in A003137.
4
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, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1
OFFSET
1,3
LINKS
PROG
(Haskell)
import Data.List (group)
a030336 n = a030336_list !! (n-1)
a030336_list = map length $ filter ((== 0) . head) $ group a003137_list
-- Reinhard Zumkeller, Feb 21 2013
CROSSREFS
KEYWORD
nonn,base
STATUS
approved