A307682 -id:A307682 - cp's OEIS frontend

A307342 Products of four primes, except fourth powers of primes.

24, 36, 40, 54, 56, 60, 84, 88, 90, 100, 104, 126, 132, 135, 136, 140, 150, 152, 156, 184, 189, 196, 198, 204, 210, 220, 225, 228, 232, 234, 248, 250, 260, 276, 294, 296, 297, 306, 308, 315, 328, 330, 340, 342, 344, 348, 350, 351, 364, 372, 375, 376, 380, 390

Offset: 1

Kalle Siukola, Apr 02 2019

Numbers with exactly four prime factors (counted with multiplicity) and more than one distinct prime factor.

Numbers n such that bigomega(n) = 4 and omega(n) > 1.

Setwise difference of A014613 and A030514.
Union of A046386, A065036, A085986 and A085987.
Cf. A307682.

Select[Range@ 400, And[! PrimePowerQ@ #, PrimeOmega@ # == 4] &] (* Michael De Vlieger, Apr 21 2019 *)
Select[Range[400],PrimeOmega[#]==4&&PrimeNu[#]>1&] (* Harvey P. Dale, Aug 27 2021 *)

isok(n) = (bigomega(n)==4) && (omega(n) > 1); \\ Michel Marcus, Apr 03 2019

import sympy
def bigomega(n): return sympy.primeomega(n)
def omega(n): return len(sympy.primefactors(n))
print([n for n in range(1, 1000) if bigomega(n) == 4 and omega(n) > 1])

cp's OEIS Frontend

A307342 Products of four primes, except fourth powers of primes.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

PARI

Python