OFFSET
1,2
COMMENTS
LINKS
PROG
(MIT/GNU Scheme)
(define (A116626 n) (cond ((= 1 n) 1) ((odd? n) (A003987bi (A116626 (-1+ n)) (A116626 (- n 2)))) (else (let outloop ((i (A116648 (-1+ n)))) (let ((k (A003987bi i (A116626 (-1+ n))))) (let inloop ((j (- n 1))) (cond ((zero? j) k) ((= i (A116626 j)) (outloop (+ i 1))) ((= k (A116626 j)) (outloop (+ i 1))) (else (inloop (- j 1))))))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna and Antti Karttunen, Feb 21 2006
STATUS
approved