login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A100290
Numbers divisible by smallest number with same number of 1's in its binary expansion. That is, A038573(a(n)) divides a(n).
3
1, 2, 3, 4, 6, 7, 8, 9, 12, 14, 15, 16, 18, 21, 24, 28, 30, 31, 32, 33, 35, 36, 42, 45, 48, 49, 56, 60, 62, 63, 64, 66, 70, 72, 75, 84, 90, 93, 96, 98, 105, 112, 120, 124, 126, 127, 128, 129, 132, 133, 135, 140, 144, 150, 155, 161, 165, 168, 180, 186, 189, 192, 195, 196
OFFSET
1,2
COMMENTS
Contains m*(2^k-1) for 1 <= m <= 2^k + 2 and any k >= 1. - Robert Israel, Aug 04 2016
EXAMPLE
21 is a member since 21 = 10101 base 2, which is divisible by 7 = 111 base 2.
MAPLE
filter:= n -> evalb(n mod (2^numboccur(1, convert(n, base, 2))-1) = 0):
select(filter, [$1..1000]); # Robert Israel, Aug 04 2016
MATHEMATICA
Select[Range[200], Divisible[#, 2^DigitCount[#, 2, 1] - 1] &] (* Ivan Neretin, Aug 03 2016 *)
PROG
(PARI) is(n)=n%(2^hammingweight(n)-1)==0 \\ Charles R Greathouse IV, Aug 04 2016
CROSSREFS
Sequence in context: A004742 A277817 A336231 * A344341 A140181 A038032
KEYWORD
base,easy,nonn
AUTHOR
Marc LeBrun, Nov 11 2004
STATUS
approved