|
|
|
|
1, 2, 3, 5, 13, 18, 20, 42, 45, 50, 63, 65, 87, 93, 95, 102, 104, 114, 121, 123, 140, 143, 146, 148, 150, 152, 157, 160, 161, 162, 172, 175, 190, 195, 196, 198, 203, 204, 210, 218, 224, 228, 232, 234, 235, 238, 242, 244, 245, 260, 270, 275, 276, 287, 315
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Numbers k such that the number of prime divisors (counted with multiplicity) of k is equal to the number of prime divisors (counted with multiplicity) of the number of partitions of k.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[2000], PrimeOmega[#]==PrimeOmega[PartitionsP[#]] &] (* Indranil Ghosh, Mar 09 2017 *)
|
|
PROG
|
(PARI) select(n->bigomega(n)==bigomega(numbpart(n)), vector(400, n, n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|