A126768 Equal-parity block sizes in sequence A117872.
1, 1, 1, 2, 2, 4, 2, 1, 1, 3, 3, 2, 2, 1, 1, 3, 2, 3, 1, 2, 1, 1, 2, 2, 2, 1, 2, 2, 2, 3, 3, 1, 1, 1, 1, 4, 1, 2, 1, 4, 2, 3, 1, 2, 2, 1, 1, 1, 3, 3, 1, 3, 2, 1, 2, 4, 2, 2, 4, 2, 4, 1, 2, 1, 1, 3, 1, 2, 2, 1, 2, 1, 1, 2, 3, 2, 1, 4, 3, 1, 3, 1, 5, 6, 3, 1, 4, 5, 5, 1, 5, 3, 1, 1, 6, 1, 1, 4, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 7, 1, 1, 2, 1, 1, 1, 3, 1, 2, 2, 2, 3, 1, 1, 1, 1
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
import Data.List (group) a126768 n = a126768_list !! n a126768_list = map length $ group a117872_list -- Reinhard Zumkeller, Aug 15 2013
Extensions
Corrected terms from Greg Huber, Aug 21 2013
Comments