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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A327527 Number of uniform divisors of n. 23
 1, 2, 2, 3, 2, 4, 2, 4, 3, 4, 2, 5, 2, 4, 4, 5, 2, 5, 2, 5, 4, 4, 2, 6, 3, 4, 4, 5, 2, 8, 2, 6, 4, 4, 4, 7, 2, 4, 4, 6, 2, 8, 2, 5, 5, 4, 2, 7, 3, 5, 4, 5, 2, 6, 4, 6, 4, 4, 2, 9, 2, 4, 5, 7, 4, 8, 2, 5, 4, 8, 2, 8, 2, 4, 5, 5, 4, 8, 2, 7, 5, 4, 2, 9, 4, 4, 4, 6, 2, 9, 4, 5, 4, 4, 4, 8, 2, 5, 5, 7, 2, 8, 2, 6, 8 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS A number is uniform if its prime multiplicities are all equal, meaning it is a power of a squarefree number. Uniform numbers are listed in A072774. The maximum uniform divisor of n is A327526(n). LINKS Antti Karttunen, Table of n, a(n) for n = 1..65537 EXAMPLE The uniform divisors of 40 are {1, 2, 4, 5, 8, 10}, so a(40) = 6. MATHEMATICA Table[Length[Select[Divisors[n], SameQ@@Last/@FactorInteger[#]&]], {n, 100}] PROG (PARI) isA072774(n) = { ispower(n, , &n); issquarefree(n); }; \\ From A072774 A327527(n) = sumdiv(n, d, isA072774(d)); \\ Antti Karttunen, Nov 13 2021 CROSSREFS See link for additional cross-references. Cf. A000005, A000961, A005117, A006530, A007947, A071625, A112798. Cf. A072774, A327526. Sequence in context: A289872 A301855 A080256 * A337454 A289849 A299701 Adjacent sequences:  A327524 A327525 A327526 * A327528 A327529 A327530 KEYWORD nonn AUTHOR Gus Wiseman, Sep 17 2019 EXTENSIONS Data section extended up to 105 terms by Antti Karttunen, Nov 13 2021 STATUS approved

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

Last modified January 18 07:00 EST 2022. Contains 350454 sequences. (Running on oeis4.)