OFFSET
1,1
MATHEMATICA
Select[Range[6000], # DivisorSigma[0, #]>4 Prime[#]&] (* Harvey P. Dale, Sep 12 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 22 2002
STATUS
approved