|
|
A195091
|
|
Numbers k such that (number of prime factors of k counted with multiplicity) less (number of distinct prime factors of k) = 7.
|
|
12
|
|
|
256, 768, 1152, 1280, 1728, 1792, 2592, 2816, 3200, 3328, 3840, 3888, 4352, 4864, 5376, 5760, 5832, 5888, 6272, 6561, 7424, 7936, 8000, 8064, 8448, 8640, 8748, 8960, 9472, 9600, 9984, 10496, 11008, 12032, 12096, 12672, 12960, 13056, 13122, 13568
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[14000], PrimeOmega[#]-PrimeNu[#]==7&]
|
|
PROG
|
(Haskell)
a195091 n = a195091_list !! (n-1)
a195091_list = filter ((== 7) . a046660) [1..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|