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 (gma069775! s) (cond ((pair? s) (gma072797! s) (gma069775! (car s)))) s)
CROSSREFS
Inverse of A069776. a(n) = A057163(A057509(A057163(n))) = A069773(A069770(n)). Cf. also A069787, A072797.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 16 2002
STATUS
approved