%I #7 Jan 14 2015 18:26:55

%S 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,

%T 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,

%U 1,1,2,1,1,2,1,3,1,1,2,2,2,4,1,1,2,1

%N Run lengths in A100618.

%H Reinhard Zumkeller, <a href="/A250007/b250007.txt">Table of n, a(n) for n = 1..10000</a>

%o (Haskell)

%o import Data.List (group)

%o a250007 n = a250007_list !! (n-1)

%o a250007_list = map length $ group $ map a100618 [1..]

%Y Cf. A100618, A056526, A000960.

%K nonn

%O 1,3

%A _Reinhard Zumkeller_, Jan 14 2015