OFFSET
1,2
REFERENCES
Eric Angelini, Posting to Sequence Fans Mailing List, Mar 17 2008 (the definition was clarified by Gabriel Cunningham).
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
import Data.Map (singleton, findMin, delete, insert)
a249053 n = a249053_list !! (n-1)
a249053_list = 1 : f 1 1 a002808_list (singleton 1 1) where
f x z cs m
| k == x = p : f (x + 1) p cs (insert (x + p) 0 $ delete x m)
| otherwise = c : f (x + 1) c cs' (insert (x + c) 0 m)
where p = a007918 z
(c:cs') = dropWhile (<= z) cs
(k, _) = findMin m
-- Reinhard Zumkeller, Nov 01 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 01 2014
STATUS
approved