OFFSET
1,1
COMMENTS
I expect that A123709(a(k))=32.
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..18347
MATHEMATICA
Select[Range[2500], PrimeNu[#] == 4 && PrimeOmega[#] > 4 &](* Jean-François Alcover, Jun 30 2013 *)
PROG
(PARI) is_A200521(n, c=4)={ omega(n)==c & bigomega(n)>c }
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Feb 09 2012
STATUS
approved