A258062 Run lengths of zeros and ones in A188967.

1, 1, 1, 2, 3, 5, 7, 1, 1, 9, 1, 2, 2, 1, 10, 1, 4, 2, 2, 1, 1, 5, 1, 7, 1, 7, 2, 4, 1, 2, 2, 1, 4, 2, 2, 1, 7, 2, 10, 1, 1, 1, 6, 1, 4, 2, 2, 1, 1, 4, 3, 1, 1, 1, 2, 2, 1, 7, 3, 1, 1, 5, 1, 7, 1, 2, 1, 6, 1, 3, 1, 6, 1, 1, 1, 3, 1, 2, 1, 1, 4, 5, 1, 2, 1, 3

Offset

1,4

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Prog

(Haskell)
import Data.List (group)
a258062 n = a258062_list !! (n-1)
a258062_list = map length $ group a188967_list

Crossrefs

Cf. A188967.

Sequence in context: A390002 A228355 A065859 * A117819 A074461 A285095

Adjacent sequences: A258059 A258060 A258061 * A258063 A258064 A258065

Keyword

nonn

Author

Reinhard Zumkeller, May 18 2015

Status

approved