OFFSET
0,3
LINKS
A. Karttunen, Gatomorphisms (Includes the complete Scheme program for computing this sequence)
PROG
(Scheme functions implementing this automorphism on list-structures:)
(define (gma069776! s) (cond ((pair? s) (gma069776! (car s)) (gma072797! s))) s)
CROSSREFS
Inverse of A069775. a(n) = A057163(A057510(A057163(n))) = A069770(A069774(n)). Cf. also A069787, A072797.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 16 2002
STATUS
approved