cp's OEIS Frontend

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.

A335142 Nonunitary Zumkeller numbers: numbers whose set of nonunitary divisors is nonempty and can be partitioned into two disjoint sets of equal sum.

This page as a plain text file.
%I A335142 #5 May 25 2020 09:27:13
%S A335142 24,48,54,80,96,112,120,150,160,168,180,192,216,224,240,252,264,270,
%T A335142 280,294,312,320,336,352,360,378,384,396,408,416,432,448,456,468,480,
%U A335142 486,504,528,540,552,560,594,600,612,624,630,640,672,684,696,702,704,720,726
%N A335142 Nonunitary Zumkeller numbers: numbers whose set of nonunitary divisors is nonempty and can be partitioned into two disjoint sets of equal sum.
%C A335142 Apparently, most of the terms are nonunitary abundant (A064597). Term that are nonunitary deficient (A064598) are 54, 150, 270, 294, 378, ...
%e A335142 24 is a term since its set of nonunitary divisors, {2, 4, 6, 12}, can be partitioned into the two disjoint sets, {2, 4, 6} and {12}, whose sum is equal: 2 + 4 + 6 = 12.
%t A335142 nuzQ[n_] := Module[{d = Select[Divisors[n], GCD[#, n/#] > 1 &], sum, x}, sum = Plus @@ d; sum > 0 && EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, d}], x][[1 + sum/2]] > 0]; Select[Range[1000], nuzQ]
%Y A335142 Cf. A064591, A064597, A064598, A083207.
%K A335142 nonn
%O A335142 1,1
%A A335142 _Amiram Eldar_, May 25 2020