This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A252234 Numbers n such that there exists an m so that squarefree kernel of n = squarefree kernel of m, and n is the sum of the proper divisors of m (m may equal n). 1
 6, 28, 36, 50, 240, 312, 384, 450, 496, 810, 1008, 1344, 4256, 4536, 8128, 10800, 11700, 14112, 15288, 19656, 23040, 49686, 90720, 95040, 98280, 98553, 124848, 129024, 153760, 249018, 256932, 260100, 378225, 404586, 454860, 532224, 561834, 700245, 714240 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Since m=n is allowed, perfect numbers (A000396) are terms of this sequence. - Michel Marcus, Jan 02 2015 m: 6, 24, 28, 40, 120, 216, 234, 270, 360, 496, 588, 672, 2016, ..., . - Robert G. Wilson v, Feb 28 2015 Odd members are 98553, 378225, 700245, ..., . - Robert G. Wilson v, Feb 28 2015 LINKS Robert G. Wilson v, Table of n, a(n) for n = 1..157 Robert G. Wilson v, Table of n, a(n) and m for n = 1..157 EXAMPLE For n = 36, m = 24, 36 is the sum of the proper divisors of 24, and rad(36) = rad(24) = 6. MATHEMATICA rad[n_] := Times @@ (First@ # & /@ FactorInteger@ n); f[n_] := Block[{sd = DivisorSigma[1, n] - n}, If[ rad[n] == rad[sd], sd, 0]]; k = 1; lst = {}; While[k < 1000001, a = f@ k; If[a > 0, AppendTo[lst, a]]; k++]; Sort@ lst (* Robert G. Wilson v, Feb 28 2015 *) CROSSREFS Cf. A001065 (sum of proper divisors of n), A007947 (the squarefree kernel of n). Cf. A048138, A152454, A252997. Sequence in context: A185351 A272971 A117948 * A242344 A247111 A071834 Adjacent sequences:  A252231 A252232 A252233 * A252235 A252236 A252237 KEYWORD nonn AUTHOR Naohiro Nomoto, Dec 15 2014 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 October 18 00:03 EDT 2019. Contains 328135 sequences. (Running on oeis4.)