OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
s[n_] := DivisorSum[n, # &, BitAnd[n, #] == # &]; Select[Range[1, 2^24, 2], s[#] > 2*# &]
PROG
(PARI) is(n) = n%2 && sumdiv(n, d, d * (bitor(n, d) == n)) > 2*n;
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Dec 15 2022
STATUS
approved