|
|
A067885
|
|
Product of 6 distinct primes.
|
|
29
|
|
|
30030, 39270, 43890, 46410, 51870, 53130, 62790, 66990, 67830, 71610, 72930, 79170, 81510, 82110, 84630, 85470, 91770, 94710, 98670, 99330, 101010, 102102, 103530, 106590, 108570, 110670, 111930, 114114, 115710, 117390, 122430, 123690, 124410, 125970, 128310
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[125000], PrimeNu[#]==PrimeOmega[#]==6&] (* Harvey P. Dale, May 14 2014 *)
|
|
PROG
|
(PARI) is(n)=omega(n)==6 && bigomega(n)==6 \\ Hugo Pfoertner, Dec 18 2018
(PARI) list(lim)=lim\=1; my(v=List(), L1, L2, L3, L4, P4, P5); forprime(p=13, lim\2310, L1=lim\p; forprime(q=11, min(L1\210, p-2), L2=L1\q; forprime(r=7, min(L2\30, q-2), L3=L2\r; forprime(s=5, min(L3\6, r-2), L4=L3\s; P4=p*q*r*s; forprime(t=3, min(L4\2, s-2), P5=P4*t; forprime(u=2, min(L4\t, t-1), listput(v, P5*u))))))); Set(v) \\ Charles R Greathouse IV, Aug 27 2021
|
|
CROSSREFS
|
Cf. A006881, A007304, A046386, A046387, A067885, A123321, A123322, A115343 (product of 2, 3, 4, ... distinct primes, respectively).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|