OFFSET
1,1
COMMENTS
Terms have more than 2 distinct prime factors, since we need at least one pair of prime power factors with the same exponent M > 1, and at least one prime power factor with an exponent larger than 1 and coprime to M.
Proper subset of A393708, in turn a proper subset of A375055; A393708(12) = A375055(2585) = 10800 = 2^4 * 3^3 * 5^2 has distinct prime power factor exponents and is not a term in this sequence.
Smallest a(n) with m distinct prime factors is 2*A002110(m)^2 for m > 2.
LINKS
EXAMPLE
Let s = A052486.
Table of n, a(n) for select n:
n a(n)
-------------------------------------------------------------------
1 s(21) = 1800 = 2^3 * 3^2 * 5^2
2 s(26) = 2700 = 2^2 * 3^3 * 5^2
3 s(32) = 3528 = 2^3 * 3^2 * 7^2
4 s(37) = 4500 = 2^2 * 3^2 * 5^3
5 s(41) = 5292 = 2^2 * 3^3 * 7^2
7 s(51) = 7200 = 2^5 * 3^2 * 5^2
27 s(130) = 33075 = 3^3 * 5^2 * 7^2
60 s(238) = 88200 = 2^3 * 3^2 * 5^2 * 7^2
68 s(266) = 108000 = 2^5 * 3^3 * 5^3
1459 s(3269) = 10672200 = 2^3 * 3^2 * 5^2 * 7^2 * 11^2
28297 s(46748) = 1803601800 = 2^3 * 3^2 * 5^2 * 7^2 * 11^2 * 13^2
MATHEMATICA
nn = 50000; s = Union@ Flatten@ Rest@ Table[k = a^2*b^3; If[GCD @@ FactorInteger[k][[All, -1]] == 1, k, Nothing], {b, Surd[nn, 3]}, {a, Sqrt[nn/b^3]}]; Select[s, ! DuplicateFreeQ[FactorInteger[#][[All, -1]] ] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Mar 18 2026
STATUS
approved
