OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
f[2, e_] := 1; f[p_, e_] := NextPrime[p, -1]^e; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[1, 200, 2], s[DivisorSigma[1, #]] < s[#] &] (* Amiram Eldar, Nov 04 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 02 2021
STATUS
approved