OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1000], Block[{s = DivisorSigma[1, #]}, BitAnd[2*#, s] == 2* BitAnd[#, s-#]] &] (* Paolo Xausa, Mar 11 2024 *)
PROG
(PARI) for(n=1, oo, if( (2*(bitand(n, sigma(n)-n))==bitand(n+n, sigma(n))), print1(n, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 14 2019
STATUS
approved