OFFSET
1,1
MATHEMATICA
Select[Range[100], Mod[#, DivisorSigma[0, #]]!=0&] (* Harvey P. Dale, Aug 31 2023 *)
PROG
(Magma) [ n: n in [1..85] | n mod #Divisors(n) ne 0 ];
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Apr 28 2009
EXTENSIONS
Edited and extended by Klaus Brockhaus, Apr 29 2009
STATUS
approved