OFFSET
1,2
COMMENTS
Numbers k such that the number of distinct prime divisors of k is equal to the number of distinct prime divisors of the number of partitions of k.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..940 (terms 1..100 from Colin Barker, terms 101..196 from Indranil Ghosh)
MATHEMATICA
Select[Range[2000], PrimeNu[#]==PrimeNu[PartitionsP[#]] &] (* Indranil Ghosh, Mar 09 2017 *)
PROG
(PARI) select(n->omega(n)==omega(numbpart(n)), vector(500, n, n))
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Jan 25 2017
STATUS
approved