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,4

Comments

From a suggestion due to D. R. Hofstadter.

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Prog

(Haskell)
import Data.List (group)
a126768 n = a126768_list !! n
a126768_list = map length $ group a117872_list
-- Reinhard Zumkeller, Aug 15 2013

Crossrefs

Sequence in context: A033726 A378751 A359382 * A261872 A021450 A239675

Adjacent sequences: A126765 A126766 A126767 * A126769 A126770 A126771

Keyword

nonn

Author

Greg Huber, Feb 16 2007

Extensions

Corrected terms from Greg Huber, Aug 21 2013

Status

approved