A227389 - OEIS

A227389

Run lengths in A226390.

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, 12, 12, 12, 44, 14, 14, 14, 14, 14, 52, 16, 16, 16, 16, 16, 60, 18, 18, 18, 18, 18, 68, 20, 20, 20, 20, 20, 76, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Also first differences of A227388.

LINKS

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

PROG

(Haskell)

import Data.List (group)

a227389 n = a227389_list !! (n-1)

a227389_list = map length $ group a226390_list