A332213 - OEIS

%I #8 Feb 09 2020 20:12:59

%S 1,2,3,4,7,6,5,8,9,14,13,12,19,10,21,16,23,18,29,28,15,26,31,24,49,38,

%T 27,20,37,42,11,32,39,46,35,36,43,58,57,56,47,30,53,52,63,62,61,48,25,

%U 98,69,76,71,54,91,40,87,74,73,84,79,22,45,64,133,78,83,92,93,70,89,72,97,86,147,116,65,114,101,112,81,94,103,60,161,106,111

%N Fully multiplicative with a(p) = A332210(A000720(p)).

%H Antti Karttunen, <a href="/A332213/b332213.txt">Table of n, a(n) for n = 1..86238</a>

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

%F a(1) = 1, a(p^e) = A332210(A000720(p))^e, a(m*n) = a(m)*a(n).

%o (PARI)

%o \\ Needs also code from A332210:

%o A332213(n) = { my(f=factor(n)); f[,1] = apply(A332210,apply(primepi,f[,1])); factorback(f); };

%Y Cf. A000043, A000668, A000720, A332210, A332212 (inverse permutation), A332215.

%K nonn,mult

%O 1,2

%A _Antti Karttunen_, Feb 09 2020