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