OFFSET
0,3
LINKS
A. Karttunen, Gatomorphisms (with the complete Scheme source)
PROG
(Scheme functions implementing this automorphism on list-structures:)
(define (gma082341! s) (cond ((pair? s) (gma082341! (car s)) (gma072797! s) (gma082341! (cdr s)))) s)
CROSSREFS
Inverse of A082342. a(n) = A057163(A073285(A057163(n))). Occurs in A073200 as row 1800. Cf. also A072797, A082337-A082339.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 17 2003
STATUS
approved