%I #4 Jul 10 2013 15:18:13
%S 1,2,6,4,10,6,6,6,6,6,18,8,8,8,24,10,10,10,10,10,10,10,10,10,36,12,12,
%T 12,12,12,44,14,14,14,14,14,52,16,16,16,16,16,60,18,18,18,18,18,68,20,
%U 20,20,20,20,76,22,22,22,22,22,22,22,22,22,22,22,22,22
%N Run lengths in A226390.
%C Also first differences of A227388.
%H Reinhard Zumkeller, <a href="/A227389/b227389.txt">Table of n, a(n) for n = 1..1000</a>
%o (Haskell)
%o import Data.List (group)
%o a227389 n = a227389_list !! (n-1)
%o a227389_list = map length $ group a226390_list
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Jul 10 2013
|