A252940 Run lengths of A252939.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 17, 2, 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 1

Author

Reinhard Zumkeller, Dec 25 2014

Keywords

• nonn

Comments

a(113) = 2.

Crossrefs

Cf. A252939, A252912, A251555, A098550.

Programs

Haskell

import Data.List (group)
a252940 n = a252940_list !! (n-1)
a252940_list = map length $ group a252939_list