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 A339981 #4 Dec 25 2020 19:32:45
%S A339981 36,200,392,1936,2704,4900,9248,11552,16928,26912,30752,60500,84500,
%T A339981 87616,99225,107584,118336,141376,163592,165375,179776,222784,231525,
%U A339981 238144,349448,574592,645248,682112,798848,881792,1013888,1204352,1225125,1305728,1357952
%N A339981 Primitive coreful Zumkeller numbers: coreful Zumkeller numbers (A339979) having no coreful Zumkeller aliquot divisor.
%C A339981 If m is a coreful Zumkeller number and k is a squarefree number such that gcd(m, k) = 1, then k*m is also a coreful Zumkeller number.
%e A339981 a(1) = 36 since it is the least coreful Zumkeller number.
%e A339981 The next coreful Zumkeller numbers, 72, 144 and 180, are not terms since they are multiples of 36.
%t A339981 corZumQ[n_] := corZumQ[n] = Module[{r = Times @@ FactorInteger[n][[;; , 1]], d, sum, x}, d = r*Divisors[n/r]; (sum = Plus @@ d) >= 2*n && EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, d}], x][[1 + sum/2]] > 0]; primczQ[n_] := corZumQ[n] && NoneTrue[Most @ Divisors[n], corZumQ]; Select[Range[10^6], primczQ]
%Y A339981 Subsequence of A339979.
%Y A339981 A307959 is a subsequence.
%Y A339981 Similar sequence: A180332.
%K A339981 nonn
%O A339981 1,1
%A A339981 _Amiram Eldar_, Dec 25 2020