login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

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.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 24 00:27 EST 2017. Contains 295164 sequences.