A086426 - OEIS

%I #8 Oct 15 2015 10:55:24

%S 0,1,3,2,7,8,6,5,4,17,20,18,22,21,16,19,15,12,13,14,11,10,9,45,54,48,

%T 61,57,46,55,50,63,64,49,62,59,58,44,53,47,60,56,43,52,40,31,34,41,32,

%U 36,35,42,51,39,30,33,38,29,26,27,37,28,25,24,23,129,157,138,180,166

%N Permutation of natural numbers induced by the Catalan bijection gma086426 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 (gma086426! s) (gmA074683! (gmA057164! s)))

%Y Inverse: A086425. a(n) = A074683(A057164(n)). Occurs in A073200. Cf. also A086427, A086428, A086429, A086430, A086431.

%K nonn

%O 0,3

%A _Antti Karttunen_, Jun 23 2003