OFFSET
1,3
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
s={}; Do[Do[If[Count[IntegerDigits[k x, 2], 1]<Count[IntegerDigits[x, 2], 1],
AppendTo[s, {k, x}]; Break[]], {x, 10000}], {k, 2, 200}]; s (* Zak Seidov, Oct 24 2013 *)
PROG
(PARI) a(n)=if((n<=1)||((n>>valuation(n, 2))==1), 0, my(k=3); while(hammingweight(k*n)>=hammingweight(k), k+=2); k ) \\ Charles R Greathouse IV, Oct 19 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Aug 08 2010
STATUS
approved