OFFSET
1,6
COMMENTS
A number's prime multiplicities are also called its (unsorted) prime signature.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
a(n) = n/A327498(n).
EXAMPLE
The maximum such divisor of 60 is 20, so a(60) = 3.
MATHEMATICA
Table[n/Max[Select[Divisors[n], UnsameQ@@Last/@FactorInteger[#]&]], {n, 100}]
PROG
(PARI)
A351564(n) = issquarefree(factorback(apply(e->prime(e), (factor(n)[, 2]))));
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 16 2019
EXTENSIONS
Data section extended up to 105 terms by Antti Karttunen, Apr 02 2022
STATUS
approved