%I #12 Mar 20 2022 21:43:15
%S 0,1,2,5,4,3,6,7,20,17,16,21,12,13,8,29,28,9,18,19,26,11,10,27,24,25,
%T 14,23,22,15,30,31,32,35,34,33,126,127,80,167,166,81,162,163,128,119,
%U 118,129,78,79,116,131,130,117,114,115,164,83,82,165,60,61,62,65,64,63,36,37,140,107,106,141,102,103,38,209,208,39,138,139,206,41,40
%N Inverse permutation to A328625.
%H Antti Karttunen, <a href="/A328626/b328626.txt">Table of n, a(n) for n = 0..30029</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%F a(n) = A276085(A328627(n)).
%F For all n, A328620(a(n)) = A328620(n).
%o (PARI)
%o A002110(n) = prod(i=1,n,prime(i));
%o A276085(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*A002110(primepi(f[k, 1])-1)); };
%o A328627(n) = { my(m=1, p=2, d=0); while(n, d = lift(Mod(n,p)/(d+1)); m *= (p^d); n = n\p; p = nextprime(1+p)); (m); };
%o A328626(n) = A276085(A328627(n));
%Y Cf. A328625 (inverse permutation).
%Y Cf. A049345, A276085, A328620, A328627, A328629.
%Y Cf. also A289234, A328623.
%K nonn
%O 0,3
%A _Antti Karttunen_, Oct 25 2019