|
|
A285508
|
|
Numbers with exactly three prime factors, not all distinct.
|
|
10
|
|
|
8, 12, 18, 20, 27, 28, 44, 45, 50, 52, 63, 68, 75, 76, 92, 98, 99, 116, 117, 124, 125, 147, 148, 153, 164, 171, 172, 175, 188, 207, 212, 236, 242, 244, 245, 261, 268, 275, 279, 284, 292, 316, 325, 332, 333, 338, 343, 356, 363, 369, 387, 388, 404, 412, 423, 425, 428, 436, 452
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Cubes of primes together with products of a prime and the square of a different prime.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[452], PrimeOmega[#] == 3 && PrimeNu[#] < 3 &] (* Giovanni Resta, Apr 20 2017 *)
|
|
PROG
|
(PARI)
isA285508(n) = ((omega(n) < 3) && (bigomega(n) == 3));
n=0; k=1; while(k <= 10000, n=n+1; if(isA285508(n), write("b285508.txt", k, " ", n); k=k+1));
(Python)
from sympy import primefactors, primeomega
def omega(n): return len(primefactors(n))
def bigomega(n): return primeomega(n)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|