login
A080025
Numbers n having at least one divisor d such that in binary representation d and n/d have the same number of 1's as n.
3
1, 2, 4, 8, 9, 16, 18, 32, 36, 49, 64, 72, 98, 128, 133, 144, 196, 225, 256, 259, 266, 273, 288, 385, 392, 450, 512, 518, 532, 546, 576, 585, 645, 770, 784, 897, 900, 961, 1024, 1029, 1035, 1036, 1064, 1065, 1092, 1152, 1155, 1161, 1170, 1290, 1539, 1540, 1568
OFFSET
1,2
LINKS
MATHEMATICA
bn1Q[n_]:=AnyTrue[Union/@(Select[{DigitCount[#, 2, 1], DigitCount[n/#, 2, 1]}&/@ Divisors[n], #[[1]]==#[[2]]&]), #=={DigitCount[n, 2, 1]}&]; Select[Range[ 1600], bn1Q] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 03 2020 *)
CROSSREFS
Cf. A080024(a(n))>0, A080026 is a subsequence.
Sequence in context: A330710 A023898 A125853 * A152111 A316856 A324524
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 21 2003
STATUS
approved