OFFSET
1,2
COMMENTS
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = {1}; used = {}; Do[k = 1; While[MemberQ[Join[a, used], k] || MemberQ[Join[a, used], r = BitXor[a[[-1]], k]], k++]; AppendTo[a, k]; AppendTo[used, r], {n, 2, 66}]; a (* Ivan Neretin, Mar 13 2017 *)
PROG
(MIT/GNU Scheme)
(define (A116624 n) (cond ((= 1 n) 1) (else (let outloop ((i 1)) (let ((k (A003987bi i (A116624 (- n 1))))) (let inloop ((j (- n 1))) (cond ((zero? j) i) ((= i (A116624 j)) (outloop (+ i 1))) ((= i (A116625 (- j 1))) (outloop (+ i 1))) ((= k (A116625 (- j 1))) (outloop (+ i 1))) ((= k (A116624 j)) (outloop (+ i 1))) (else (inloop (- j 1))))))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna and Antti Karttunen, Feb 21 2006
STATUS
approved