OFFSET
1,1
MATHEMATICA
Select[Prime[Range[3, 150]], DivisorSigma[1, #-6]>#&] (* Harvey P. Dale, Jul 01 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 08 2002
STATUS
approved