This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A175433 a(n) = the smallest number m such that sigma(n) = m^k for any k >= 1 (sigma = A000203). 2
 1, 3, 2, 7, 6, 12, 2, 15, 13, 18, 12, 28, 14, 24, 24, 31, 18, 39, 20, 42, 2, 6, 24, 60, 31, 42, 40, 56, 30, 72, 2, 63, 48, 54, 48, 91, 38, 60, 56, 90, 42, 96, 44, 84, 78, 72, 48, 124, 57, 93, 72, 98, 54, 120, 72, 120, 80, 90, 60, 168, 62, 96, 104, 127, 84, 12, 68, 126, 96, 12 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS a(n) = A000203(n) ^ (1 / A175432(n)). a(n) = A052410(A000203(n)). - Antti Karttunen, Nov 06 2017 LINKS Antti Karttunen, Table of n, a(n) for n = 1..16384 EXAMPLE For n = 7, a(7) = 2 because sigma(7) = 8 = 2^3. MATHEMATICA Array[#^(1/Apply[GCD, FactorInteger[#][[All, -1]]]) &@ DivisorSigma[1, #] &, 105] (* Michael De Vlieger, Nov 05 2017 *) PROG (PARI) A175433(n) = { my(s=sigma(n), m); ispower(s, , &m); if(m, m, s); }; \\ Antti Karttunen, Nov 05 2017 CROSSREFS Cf. A000203, A052410, A175432. Sequence in context: A130357 A122336 A122355 * A058646 A125718 A268821 Adjacent sequences:  A175430 A175431 A175432 * A175434 A175435 A175436 KEYWORD nonn AUTHOR Jaroslav Krizek, May 10 2010 EXTENSIONS Extended by Ray Chandler, Aug 20 2010 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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 22 02:02 EDT 2018. Contains 313959 sequences. (Running on oeis4.)