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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 26 2015
STATUS
approved