OFFSET
1,1
MATHEMATICA
Select[Range[15000], # DivisorSigma[0, #]>5 Prime[#]&] (* Harvey P. Dale, Jul 17 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 22 2002
STATUS
approved