This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A327946 #9 Dec 17 2024 06:30:43
%S A327946 24,36,80,112,200,312,352,392,408,416,456,552,588,684,696,744,888,984,
%T A327946 1032,1088,1116,1128,1216,1272,1332,1416,1464,1472,1548,1608,1692,
%U A327946 1704,1752,1856,1896,1908,1936,1984,1992,2124,2136,2196,2288,2328,2412,2424,2472
%N A327946 Nonunitary pseudoperfect numbers (A327945) that equal to the sum of a subset of their nonunitary divisors in a single way.
%C A327946 The nonunitary version of A064771.
%e A327946 The nonunitary divisors of 36 are {2, 3, 6, 12, 18}, and {6, 12, 18} is the only subset that sums to 36.
%t A327946 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
%Y A327946 Cf. A064771, A064591, A064597, A295829, A327945.
%K A327946 nonn
%O A327946 1,1
%A A327946 _Amiram Eldar_, Sep 30 2019