OFFSET
4,1
LINKS
Reinhard Zumkeller,Table of n, a(n) for n = 4..10000
PROG
(Haskell)
import Data.List (insert)
a253443 n = a253443_list!! (n-4)
a253443_list = f (4, []) 6 where
f (m, ys) z = g $ dropWhile (< m) $ a027750_row' z where
g (d:ds) | elem d ys = g ds
| otherwise = m: f (ins [m, m+1..] (insert d ys)) (z + d)
ins (u:us) vs'@(v:vs) = if u < v then (u, vs') else ins us vs
--Reinhard Zumkeller,Jan 03 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller,Jan 01 2015
STATUS
approved