login
A253443
Smallest missing number within the first n terms inA109890.
4
4, 4, 5, 5, 5, 5, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 34, 37, 37, 37, 37, 37
OFFSET
4,1
COMMENTS
A253584(n) occurs exactlyA253444(n) times.
LINKS
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