OFFSET
0,3
LINKS
A. Karttunen, Gatomorphisms (With the complete Scheme source)
PROG
(Scheme function implementing this automorphism on list-structures:)
(define (gma085163! s) (cond ((null? s) s) (else (app-to-xrt! (gma085161! (car s)) (append! (map gma085161! (cdr s)) (list (list)))))))
CROSSREFS
Inverse: A085164. a(n) = A085161(A057508(n)). Occurs in A073200. Cf. also A085171, A085172. Scheme-function app-to-xrt given in A085203.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 23 2003
STATUS
approved