|
|
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 !! (n-1)
a195092_list = filter ((== 8) . a046660) [1..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|