OFFSET
1,2
LINKS
MATHEMATICA
a[n_] := Product[{p, e} = pe; If[p == 2 || Divisible[e, p], p^e, p^((p*Floor[e/p]) + Mod[2e, p])], {pe, FactorInteger[n]}];
Array[a, 100] (* Jean-François Alcover, Nov 21 2021 *)
PROG
(PARI) A328618(n) = { my(f = factor(n), m, q); for(k=1, #f~, q = (f[k, 2]\f[k, 1]); m = (f[k, 2]%f[k, 1]); if(m&&(f[k, 1]!=2), f[k, 2] = q*f[k, 1] + ((2*f[k, 2])%f[k, 1]))); factorback(f); };
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Oct 23 2019
STATUS
approved