login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,6
COMMENTS
A number's prime multiplicities are also called its (unsorted) prime signature.
LINKS
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 05:39 EDT 2024. Contains 371235 sequences. (Running on oeis4.)