OFFSET
1,2
COMMENTS
Contains m*(2^k-1) for 1 <= m <= 2^k + 2 and any k >= 1. - Robert Israel, Aug 04 2016
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
Rémy Sigrist, Scatterplot of the first 10000 terms of the first difference of A100290 (cf. A292777)
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
KEYWORD
base,easy,nonn
AUTHOR
Marc LeBrun, Nov 11 2004
STATUS
approved