OFFSET
1,1
FORMULA
MATHEMATICA
Select[Range[130], CompositeQ[#] && DivisorSigma[-1, #] <= 2 &] (* Amiram Eldar, Mar 18 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexey Galkin (fetch91(AT)gmail.com), Sep 09 2010
EXTENSIONS
Corrected (4, 16 inserted) by R. J. Mathar, Sep 25 2010
STATUS
approved