A086974 Numbers of the form p^2 * q * r with distinct primes p, q and r such that p^2 < q*r.

60, 84, 90, 126, 132, 140, 156, 198, 204, 220, 228, 234, 260, 276, 306, 308, 315, 340, 342, 348, 364, 372, 380, 414, 444, 460, 476, 492, 495, 516, 522, 532, 558, 564, 572, 580, 585, 620, 636, 644, 650, 666, 693, 708, 732, 738, 740, 748, 765, 774, 804

Offset: 1

Author

Reinhard Zumkeller, Jul 25 2003

Keywords

• nonn
• easy

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A002033, A086975.

Programs

Mathematica

q[n_] := Module[{f = SortBy[FactorInteger[n], Last]}, f[[;;, 2]] == {1, 1, 2} && f[[1, 1]] * f[[2, 1]] > f[[3, 1]]^2]; Select[Range[1000], q] (* Amiram Eldar, Sep 15 2024 *)

Formula

A002033(a(n)-1) = 44. - Juri-Stepan Gerasimov, Sep 26 2009

Extensions

Incorrect comment removed by Charles R Greathouse IV, Mar 22 2010