A359085 Odd numbers k such that A246601(k) > 2*k.
4095, 16777215, 33550335, 67096575, 134189055, 268374015, 536743935, 1073483775, 2146963455, 4293922815, 8587841535, 17175678975, 34351353855, 68702703615, 68719476735, 137405403135, 137422176255, 137438949375, 274810802175, 274827575295, 274844348415, 274877894655
Offset: 1
Links
Programs
-
Mathematica
s[n_] := DivisorSum[n, # &, BitAnd[n, #] == # &]; Select[Range[1, 2^24, 2], s[#] > 2*# &]
-
PARI
is(n) = n%2 && sumdiv(n, d, d * (bitor(n, d) == n)) > 2*n;
Comments