A378430 a(n) = Sqrt(A378984(n)).

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

Author

Michael De Vlieger, Dec 23 2024

Keywords

• nonn
• easy

Comments

Distinct from A350372; a(20) = 900 is not in A350372.

Proper subset of A126706, intersects A286708.

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A126706, A286708, A350372, A378984.

Programs

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 &] ]