A251548 Lengths of runs of identical terms in A251546.

1, 2, 6, 6, 15, 2, 6, 2, 7, 8, 13, 2, 2, 7, 2, 13, 2, 5, 2, 6, 5, 2, 11, 5, 2, 8, 2, 2, 2, 5, 5, 2, 15, 2, 2, 2, 4, 2, 2, 2, 13, 2, 2, 2, 5, 7, 2, 4, 2, 8, 2, 2, 2, 3, 4, 8, 2, 2, 2, 2, 2, 14, 2, 2, 2, 2, 10, 2, 2, 2, 2

Offset: 1

Author

N. J. A. Sloane, Dec 18 2014

Keywords

• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A098550, A247253, A251416, A251417, A251546-A251552.

Programs

Haskell

import Data.List (group)
a251548 n = a251548_list !! (n-1)
a251548_list = map length $ group $ map a251546 [1..]
-- Reinhard Zumkeller, Dec 19 2014