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

Author

Greg Huber, Feb 16 2007

Keywords

• nonn

Comments

From a suggestion due to D. R. Hofstadter.

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