OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Select[Range@ 1600, BitAnd[#, DivisorSigma[1, #] - #] == # &] (* Michael De Vlieger, Apr 21 2019, after Vincenzo Librandi at A318458 *)
PROG
(PARI) for(n=1, oo, if(bitand(n, sigma(n)-n)==n, print1(n, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 14 2019
STATUS
approved