OFFSET
1,1
COMMENTS
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.
EXAMPLE
a(1) = 36 since it is the least coreful Zumkeller number.
The next coreful Zumkeller numbers, 72, 144 and 180, are not terms since they are multiples of 36.
MATHEMATICA
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]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Dec 25 2020
STATUS
approved