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,1

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

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

Cf. A126706, A286708, A350372, A378984.

Sequence in context: A289056 A309380 A030636 * A350372 A179643 A379098

Adjacent sequences: A378427 A378428 A378429 * A378431 A378432 A378433

Keyword

nonn,easy,new

Author

Michael De Vlieger, Dec 23 2024

Status

approved