OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Select[Range[300], DivisorSigma[1, #] > 2*# - DigitCount[2*#, 2, 1] &] (* Amiram Eldar, Aug 06 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 11 2019
STATUS
approved