OFFSET
1,1
COMMENTS
a(n)/n = A162277(n), which is odd for all n.
MATHEMATICA
spm[n_]:=Module[{k=2, dcn=DigitCount[n, 2, 1]}, While[DigitCount[k*n, 2, 1] == dcn, k++]; k*n]; Array[spm, 60] (* Harvey P. Dale, Mar 14 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Jun 29 2009
EXTENSIONS
More terms from Max Alekseyev, Apr 15 2010
STATUS
approved