OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
If n = Product_{i = 1..k} prime(x_i)^y_i, then a(n) = Product_{i = 1..k} prime(x_i)^(max{y_1,...,y_k} - y_i + 1).
MATHEMATICA
acj[n_]:=Module[{f, m}, f=FactorInteger[n]; m=Max[Last/@f]; Times@@Table[p[[1]]^(m-p[[2]]+1), {p, f}]];
Array[acj, 100]
PROG
(PARI) a(n) = {if(n==1, 1, my(f = factor(n), e = vecmax(f[, 2]) + 1); prod(i = 1, #f~, f[i, 1]^e) / n); } \\ Amiram Eldar, Feb 12 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 18 2018
STATUS
approved