|
|
A195090
|
|
Numbers k such that (number of prime factors of k counted with multiplicity) less (number of distinct prime factors of k) = 6.
|
|
12
|
|
|
128, 384, 576, 640, 864, 896, 1296, 1408, 1600, 1664, 1920, 1944, 2176, 2187, 2432, 2688, 2880, 2916, 2944, 3136, 3712, 3968, 4000, 4032, 4224, 4320, 4374, 4480, 4736, 4800, 4992, 5248, 5504, 6016, 6048, 6336, 6480, 6528, 6784
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
op(select(n->bigomega(n)-nops(factorset(n))=6, [$1..6784])); # Paolo P. Lava, Jul 03 2018
|
|
MATHEMATICA
|
Select[Range[7000], PrimeOmega[#]-PrimeNu[#]==6&]
|
|
PROG
|
(Haskell)
a195090 n = a195090_list !! (n-1)
a195090_list = filter ((== 6) . a046660) [1..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|