OFFSET
1,1
EXAMPLE
MATHEMATICA
Select[Range[4, 200], Not[PrimeQ[#]] && EvenQ[PrimePi[#]] &] (* Alonso del Arte, Sep 26 2012 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Sep 26 2012
STATUS
approved