OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
odd[n_] := n/2^IntegerExponent[n, 2]; Select[Range[1, 150, 2], odd[DivisorSigma[1, #]] < # &] (* Amiram Eldar, Nov 02 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 02 2021
STATUS
approved