1,2

Shorter rows in A200737 are contained in longer rows; a(n) gives length of common initial segments of consecutive rows: A200737(n,k) = A200737(n+1,k) for k <= a(n).

Reinhard Zumkeller, Table of n, a(n) for n = 1..100

(Haskell)

a200738 n = a200738_list !! (n-1)

a200738_list = f a200737_tabl where

f (rs:rss'@(rs':rss)) =

(length $ takeWhile (== EQ) $ zipWith compare rs rs') : f rss'

Cf. A200742.

Sequence in context: A186382 A331417 A077473 * A129896 A134421 A092777

Adjacent sequences: A200735 A200736 A200737 * A200739 A200740 A200741

nonn

Reinhard Zumkeller, Nov 21 2011

approved