OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1, 2000, 2], 2*# == BitOr[2*#, DivisorSigma[1, #]] &] (* Paolo Xausa, Mar 11 2024 *)
PROG
(PARI) for(n=1, oo, if((n%2)&&((2*n)==bitor(2*n, sigma(n))), print1(n, ", ")));
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Mar 15 2019
STATUS
approved