OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
EXAMPLE
27 in binary is 11011. 27 has 4 divisors. 4 in binary is 100. Comparing 11011 and 100, it is seen that the two do not have any ones in the same position, so 27 is included in the sequence.
MATHEMATICA
bcQ[n_]:=Module[{bd=IntegerDigits[n, 2], p}, p=PadLeft[IntegerDigits[ DivisorSigma[ 0, n], 2], Length[bd], 0]; Union[Pick[bd, p, 1]]=={0}]; Select[ Range[200], bcQ] (* Harvey P. Dale, Jan 26 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Jul 22 2008
EXTENSIONS
Extended beyond 32, R. J. Mathar, Aug 04 2008
STATUS
approved