OFFSET
0,3
COMMENTS
This is the base-2 equivalent of A004186.
LINKS
Indranil Ghosh, Table of n, a(n) for n = 0..10000
MATHEMATICA
a[n_] := FromDigits[-Sort[-IntegerDigits[n, 2]]] (* Giovanni Resta, Jan 27 2013 *)
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Bruce L. Rothschild and N. J. A. Sloane, Jan 26 2013
EXTENSIONS
a(18)-a(36) from Giovanni Resta, Jan 27 2013
STATUS
approved