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

Links

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

Formula

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

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 *)

Crossrefs

Cf. A002033, A086975.

Sequence in context: A174292 A085987 A356413 * A099831 A306222 A138604

Adjacent sequences: A086971 A086972 A086973 * A086975 A086976 A086977

Keyword

nonn,easy

Author

Reinhard Zumkeller, Jul 25 2003

Extensions

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

Status

approved