

A195092


Numbers k such that (number of prime factors of k counted with multiplicity) less (number of distinct prime factors of k) = 8.


12



512, 1536, 2304, 2560, 3456, 3584, 5184, 5632, 6400, 6656, 7680, 7776, 8704, 9728, 10752, 11520, 11664, 11776, 12544, 14848, 15872, 16000, 16128, 16896, 17280, 17496, 17920, 18944, 19200, 19683, 19968, 20992, 22016, 24064, 24192
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS



LINKS



MATHEMATICA

Select[Range[25000], PrimeOmega[#]PrimeNu[#]==8&]


PROG

(Haskell)
a195092 n = a195092_list !! (n1)
a195092_list = filter ((== 8) . a046660) [1..]


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



