A250007 Run lengths in A100618.

1, 1, 2, 1, 1, 2, 1, 3, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 1, 1, 2, 1, 3, 2, 2, 1, 1, 2, 4, 1, 1, 2, 1, 1, 3, 3, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 2, 3, 3, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 1, 7, 1, 1, 2, 1, 1, 2, 1, 3, 1, 1, 2, 2, 2, 4, 1, 1, 2, 1

Offset

1,3

Links

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

Prog

(Haskell)
import Data.List (group)
a250007 n = a250007_list !! (n-1)
a250007_list = map length $ group $ map a100618 [1..]

Crossrefs

Cf. A100618, A056526, A000960.

Sequence in context: A346741 A358105 A210961 * A048996 A111786 A072811

Adjacent sequences: A250004 A250005 A250006 * A250008 A250009 A250010

Keyword

nonn

Author

Reinhard Zumkeller, Jan 14 2015

Status

approved