|
%I #8 Oct 15 2015 10:55:24
%S 0,1,2,3,4,6,5,7,8,9,14,11,16,19,10,15,12,17,21,13,20,18,22,23,37,28,
%T 42,51,25,39,30,44,56,33,53,47,60,24,38,29,43,52,26,40,31,45,58,35,54,
%U 49,63,27,41,34,48,62,32,57,46,59,36,61,55,50,64,65,107,79,121,149
%N Involution of natural numbers induced by the Catalan bijection gma085175 acting on symbolless S-expressions encoded by A014486/A063171.
%H A. Karttunen, <a href="http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm">Gatomorphisms</a> (With the complete Scheme source)
%H <a href="/index/Per#IntegerPermutationCatAuto">Index entries for signature-permutations induced by Catalan automorphisms</a>
%o (Scheme function implementing this automorphism on list-structures:)
%o (define (gma085175! s) (gma085169! (gma057164! (gma085170! s))))
%Y a(n) = A085169(A057164(A085170(n))). Cf. also A085161.
%K nonn
%O 0,3
%A _Antti Karttunen_, Jun 23 2003
|
