Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A327499
Quotient of n over the maximum divisor of n whose prime multiplicities are distinct.
12
1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 2, 1, 1, 1, 6, 1, 1, 3, 2, 5, 2, 1, 2, 3, 1, 1, 6, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 5, 1, 3, 2, 1, 3, 1, 2, 1, 1, 5, 6, 1, 1, 3, 10, 1, 1, 1, 2, 1, 1, 7, 6, 1, 1, 1, 2, 1, 3, 5, 2, 3, 1, 1, 2, 7, 1, 3, 2, 5, 1, 1, 1, 1, 2, 1, 6, 1, 1, 15
OFFSET
1,6
COMMENTS
A number's prime multiplicities are also called its (unsorted) prime signature.
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]))));
A327499(n) = fordiv(n, d, if(A351564(n/d), return(d))); \\ Antti Karttunen, Apr 02 2022
CROSSREFS
See link for additional cross-references.
Sequence in context: A090677 A161097 A105240 * A353693 A327857 A363850
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 16 2019
EXTENSIONS
Data section extended up to 105 terms by Antti Karttunen, Apr 02 2022
STATUS
approved