

A185028


Numbers of the base10 form ddd...d having Hamming weight d.


1




OFFSET

1,2


COMMENTS

Is 888888 the largest number in the sequence?


LINKS



EXAMPLE

555 = 1000101011_2 has five 1's.


MATHEMATICA

fQ[n_] := {Count[ IntegerDigits[n, 2], 1]} == Union[ IntegerDigits@ n]; f[n_] := Select[((10^n  1) Range[9]/9), fQ]; k = 1; lst = {}; While[k < 11, a = f[k]; If[a != {}, AppendTo[lst, a]]; k++]; lst // Flatten (* Robert G. Wilson v, Dec 24 2012 *)


CROSSREFS



KEYWORD

nonn,base,fini,full


AUTHOR



STATUS

approved



