1,1

Table of n, a(n) for n=1..74.

(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))))))))))

Cf. A116649, A116650, A116651.

Sequence in context: A123756 A300755 A307825 * A152850 A036714 A319398

Adjacent sequences: A116645 A116646 A116647 * A116649 A116650 A116651

nonn

Antti Karttunen, Feb 21 2006

approved