login
A391087
Primitive exponential Zumkeller numbers: powerful numbers whose exponential divisors can be partitioned into two disjoint subsets of equal sum.
3
36, 900, 1764, 1800, 2700, 3600, 4356, 4500, 4900, 6084, 7056, 8100, 10404, 12348, 12996, 17424, 19044, 22500, 30276, 34596, 44100, 47916, 49284, 60516, 66564, 79092, 79524, 86436, 88200, 101124, 108900, 112500, 125316, 132300, 133956, 152100, 161604, 176400, 176868, 181476, 191844
OFFSET
1,1
COMMENTS
Any term of A335218 is of the form k*m where k is a term of this sequence and m is a squarefree number coprime to k. Therefore, A335218 can be generated from this sequence by multiplying terms with coprime squarefree numbers, and the asymptotic density of A335218 can be evaluated from the terms of this sequence (see the Comments section of A335218).
The least odd term is a(1715) = A321147(1) = 225450225 = (3 * 5 * 7 * 11 * 13)^2, which is the least odd exponential abundant number.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..11902 (terms below 10^10)
EXAMPLE
36 = 2^2 * 3^2 is a term since it is a powerful number, and its exponential divisors, {6, 12, 18, 36}, can be partitioned into 2 disjoint sets whose sum is equal: 6 + 12 + 18 = 36. By multiplying 36 by any squarefree number that is coprime to 36 we get another exponential Zumkeller number. E.g., 36 * 5 = 180 is an exponential Zumkeller number since its exponential divisors, {6*5, 12*5, 18*5, 36*5} = {30, 60, 90, 180}, can be partitioned into 2 disjoint sets whose sum is equal: 30 + 60 + 90 = 180.
MATHEMATICA
pows[max_] := Union[Flatten[Table[i^2*j^3, {j, 1, Surd[max, 3]}, {i, 1, Sqrt[max/j^3]}]]];
seq[max_] := Select[pows[max], ezQ]; seq[200000] (* using the function "ezQ" from A328136 *)
CROSSREFS
Intersection of A001694 and A335218.
Subsequence of the union of A054980 and A328136.
Sequence in context: A001812 A229680 A169836 * A391143 A391089 A335220
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 28 2025
STATUS
approved