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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A327946 Nonunitary pseudoperfect numbers (A327945) that equal to the sum of a subset of their nonunitary divisors in a single way. 1
 24, 36, 80, 112, 200, 312, 352, 392, 408, 416, 456, 552, 588, 684, 696, 744, 888, 984, 1032, 1088, 1116, 1128, 1216, 1272, 1332, 1416, 1464, 1472, 1548, 1608, 1692, 1704, 1752, 1856, 1896, 1908, 1936, 1984, 1992, 2124, 2136, 2196, 2288, 2328, 2412, 2424, 2472 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS The nonunitary version of A064771. LINKS Table of n, a(n) for n=1..47. EXAMPLE The nonunitary divisors of 36 are {2, 3, 6, 12, 18), and {6, 12, 18} is the only subset that sums to 36. MATHEMATICA nudiv[n_] := Module[{d = Divisors[n]}, Select[d, GCD[#, n/#] > 1 &]]; s = {}; Do[d = nudiv[n]; If[Total[d] < n, Continue[]]; c = SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; If[c == 1, AppendTo[s, n]], {n, 1, 700}]; s CROSSREFS Cf. A064771, A064591, A064597, A295829, A327945. Sequence in context: A193069 A347422 A278474 * A288949 A108190 A185489 Adjacent sequences: A327943 A327944 A327945 * A327947 A327948 A327949 KEYWORD nonn AUTHOR Amiram Eldar, Sep 30 2019 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.

Last modified August 11 23:45 EDT 2024. Contains 375082 sequences. (Running on oeis4.)