1,2

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

bw[n_]:=Module[{w=DigitCount[n, 2, 1]}, If[Divisible[n, w], n/w, n]]; Array[ bw, 90] (* Harvey P. Dale, Nov 06 2016 *)

Cf. A000120, A235600, A235601.

Sequence in context: A034699 A217434 A295126 * A304180 A111615 A053627

Adjacent sequences: A235599 A235600 A235601 * A235603 A235604 A235605

nonn,base

N. J. A. Sloane, Jan 18 2014

approved