%I #19 Nov 19 2016 06:44:46
%S 0,1,3,2,9,5,6,11,27,4,15,7,18,13,33,10,81,19,12,17,45,22,21,37,54,25,
%T 39,8,99,43,30,41,243,14,57,55,36,23,51,26,135,31,66,29,63,20,111,59,
%U 162,121,75,38,117,61,24,35,297,34,129,47,90,53,123,44,729
%N Self-inverse and multiplicative permutation of natural numbers, A091202-conjugate of Blue code: a(n) = A091203(A193231(A091202(n))).
%C a(n) has the same prime signature as n: the permutation maps primes to primes, squares to squares, cubes to cubes, and so on.
%H Antti Karttunen, <a href="/A234747/b234747.txt">Table of n, a(n) for n = 0..8191</a>
%H <a href="/index/Di#divseq">Index to divisibility sequences</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(n) = A091203(A193231(A091202(n))).
%F Completely multiplicative with p_i = p_{A234751(i)} (where p_i stands for the i-th prime, A000040(i)), and a(x*y) = a(x)*a(y) for x, y > 0.
%e Example of multiplicativity: a(7)=11, a(23)=37, a(7*23) = a(161) = a(7)*a(23) = 11*37 = 407.
%o (Scheme) (define (A234747 n) (A091203 (A193231 (A091202 n))))
%Y Cf. A091202, A091203, A193231, A234751.
%Y See A234748 for a variant.
%K nonn,mult,look
%O 0,3
%A _Antti Karttunen_, Dec 31 2013