cp's OEIS Frontend

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

%I A258318 #3 May 26 2015 07:32:46
%S A258318 1,1,2,2,4,5,7,9,12,16,20,24,29,34,41,44,50,57,66,74,83,91,102,112,
%T A258318 124,135,148,161,174,187,201,214,230,246,263,279,296,313,331,349,369,
%U A258318 388,408,428,450,471,494,516,540,563,588,612,637,662,689,715,741,769
%N A258318 Number of distinct numbers in rows 0 through n of triangle A258197.
%H A258318 Reinhard Zumkeller, <a href="/A258318/b258318.txt">Table of n, a(n) for n = 0..1000</a>
%o A258318 (Haskell)
%o A258318 import Data.Set (singleton, insert, size)
%o A258318 a258318 n = a258318_list !! n
%o A258318 a258318_list = f 2 a258197_tabl $ singleton 0 where
%o A258318    f k (xs:xss) zs = g (take (div k 2) xs) zs where
%o A258318      g []     ys = size ys : f (k + 1) xss ys
%o A258318      g (x:xs) ys = g xs (insert x ys)
%Y A258318  Cf. A253197, A126256.
%K A258318 nonn
%O A258318 0,3
%A A258318 _Reinhard Zumkeller_, May 26 2015