login
A378430
a(n) = Sqrt(A378984(n)).
1
180, 252, 300, 360, 396, 450, 468, 504, 540, 588, 600, 612, 684, 700, 720, 756, 792, 828, 882, 900, 936, 980, 1008, 1044, 1080, 1100, 1116, 1176, 1188, 1200, 1224, 1260, 1300, 1332, 1350, 1368, 1400, 1404, 1440, 1452, 1476, 1500, 1512, 1548, 1575, 1584, 1620, 1656
OFFSET
1,1
COMMENTS
Distinct from A350372; a(20) = 900 is not in A350372.
Proper subset of A126706, intersects A286708.
LINKS
MATHEMATICA
s = Union@ Select[Flatten@ Table[a^2*b^3, {b, Surd[#, 3]}, {a, Sqrt[#/b^3]}] &[2^21], IntegerQ@ Sqrt[#] &];
t = Select[s, Length@ Select[FactorInteger[#][[All, -1]], # > 2 &] >= 2 &];
Map[Sqrt, Select[t, PrimeOmega[#] > PrimeNu[#] > 2 &] ]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Dec 23 2024
STATUS
approved