A144145 A positive integer n is included if n contains the same number of 0's as 1's when represented in binary and the number of 0's (or the number of 1's) divides n.

2, 10, 12, 42, 156, 172, 180, 184, 204, 212, 216, 228, 232, 240, 535, 555, 565, 570, 590, 595, 620, 625, 665, 675, 690, 710, 740, 775, 790, 805, 810, 820, 835, 850, 865, 880, 905, 920, 930, 2142, 2166, 2172, 2262, 2268, 2292, 2334, 2358, 2364, 2382, 2394

Offset

1,1

Links

Table of n, a(n) for n=1..50.

Example

42 in binary is 101010. This contains the same number of 0's as 1's and that number (3) divides 42. So 42 is included in the sequence.

Mathematica

Select[Range[5000], DigitCount[ #, 2, 0] == DigitCount[ #, 2, 1] && Mod[ #, DigitCount[ #, 2, 0]] == 0 &] (* Stefan Steinerberger, Sep 15 2008 *)

Crossrefs

Sequence in context: A209642 A061855 A358524 * A075170 A039571 A080981

Adjacent sequences: A144142 A144143 A144144 * A144146 A144147 A144148

Keyword

base,nonn

Author

Leroy Quet, Sep 11 2008

Extensions

More terms from Stefan Steinerberger and Dmitry Kamenetsky, Sep 15 2008

Status

approved