Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A116648
Least natural number which does not occur in A116626(1..n).
5
2, 2, 4, 4, 5, 5, 5, 5, 7, 7, 7, 7, 7, 7, 9, 9, 11, 11, 11, 11, 11, 11, 18, 18, 19, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 21, 27, 27, 27, 27, 27, 27, 27, 27, 29, 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 39, 39, 39, 39, 42, 42, 42, 42, 44, 44, 44, 44
OFFSET
1,1
PROG
(MIT Scheme:) (define (A116648 n) (if (< n 2) (+ n 1) (let ((prev (A116648 (- n 1)))) (cond ((not (= (A116626 n) prev)) prev) (else (let loop ((i (+ 1 prev))) (cond ((> (A116627 i) n) i) (else (loop (+ 1 i))))))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 21 2006
STATUS
approved