A258318 Number of distinct numbers in rows 0 through n of triangle A258197.

1, 1, 2, 2, 4, 5, 7, 9, 12, 16, 20, 24, 29, 34, 41, 44, 50, 57, 66, 74, 83, 91, 102, 112, 124, 135, 148, 161, 174, 187, 201, 214, 230, 246, 263, 279, 296, 313, 331, 349, 369, 388, 408, 428, 450, 471, 494, 516, 540, 563, 588, 612, 637, 662, 689, 715, 741, 769

Offset

0,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000

Prog

(Haskell)
import Data.Set (singleton, insert, size)
a258318 n = a258318_list !! n
a258318_list = f 2 a258197_tabl $ singleton 0 where
   f k (xs:xss) zs = g (take (div k 2) xs) zs where
     g []     ys = size ys : f (k + 1) xss ys
     g (x:xs) ys = g xs (insert x ys)

Crossrefs

Cf. A253197, A126256.

Sequence in context: A030739 A211861 A027597 * A027592 A007209 A240215

Adjacent sequences: A258315 A258316 A258317 * A258319 A258320 A258321

Keyword

nonn

Author

Reinhard Zumkeller, May 26 2015

Status

approved