OFFSET
1,4
COMMENTS
This is different from A008477, which is Product_j k_j^p_j. - N. J. A. Sloane, May 01 2021
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..4096
FORMULA
EXAMPLE
a(36) = a(2^2 * 3^2) = (2*2)^(2*3) = 4^6 = 4096.
MATHEMATICA
Table[Times@@Transpose[FactorInteger[n]][[2]]^Last[Select[Divisors[n], SquareFreeQ]], {n, 75}]
PROG
(PARI) a(n) = my(f=factor(n)); factorback(f[, 2])^factorback(f[, 1]); \\ Michel Marcus, Apr 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 20 2018
EXTENSIONS
Definition clarified by N. J. A. Sloane, May 01 2021
STATUS
approved