%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