OFFSET
1,12
COMMENTS
a(n) is the least m such that the prime power exponents of m*n are all equal; see also A062760. - David James Sycamore, Jun 13 2024
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
FORMULA
EXAMPLE
12 = 2^2*3^1 so m = 3 (3*12 = 36 = 2^2*3^2).
MATHEMATICA
Array[Apply[Times, #2[[All, 1]]]^Max[#2[[All, -1]] ]/#1 & @@ {#, FactorInteger@ #} &, 85] (* Michael De Vlieger, Nov 20 2017 *)
PROG
(PARI)
A066638(n) = { if(n==1, return(1)); my(f=factor(n), me=vecmax(f[, 2])); (prod(i=1, #f~, f[i, 1])^me); }; \\ After Charles R Greathouse IV's code.
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Reinhard Zumkeller, Jan 09 2002
STATUS
approved