%I #12 Aug 21 2014 00:00:45
%S 1,2,5,9,4,13,3,37,49,64,6,10,16,81,8,20,15,351,229,451,59,11,7,41,19,
%T 73,92,114,27,36,48,140,12,53,17,24,33,69,86,107,44,170,18,63,22,410,
%U 28,524,76,271,101,14,23,687,529,895,253,25,97,213,145,333,3413,67,2091,31,607,103,415,4531,47,131,87,193,55
%N Permutation of natural numbers: a(1) = 1, if A117966(n) < 0, a(n) = A014580(a(-(A117966(n)))), otherwise a(n) = A091242(a(A117966(n)-1)).
%C Compare to the formula for A246164. However, instead of reversing binary representation, we employ here balanced ternary enumeration of integers (see A117966).
%H Antti Karttunen, <a href="/A246206/b246206.txt">Table of n, a(n) for n = 1..231</a>
%H <a href="/index/Ge#GF2X">Index entries for sequences operating on GF(2)[X]-polynomials</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(1) = 1, and for n > 1, if A117966(n) < 0, then a(n) = A014580(a(-(A117966(n)))), otherwise a(n) = A091242(a(A117966(n)-1)).
%F As a composition of related permutations:
%F a(n) = A245702(A246208(n)).
%F a(n) = A246202(A246210(n)).
%o (Scheme, with memoization-macro definec)
%o (definec (A246206 n) (cond ((= 1 n) n) ((negative? (A117966 n)) (A014580 (A246206 (- (A117966 n))))) (else (A091242 (A246206 (- (A117966 n) 1))))))
%Y Inverse: A246205.
%Y Similar or related entanglement permutations: A246164, A245702, A246202, A246208, A246210.
%Y Cf. A014580, A091242, A117966.
%K nonn
%O 1,2
%A _Antti Karttunen_, Aug 19 2014
|