|
|
A185028
|
|
Numbers of the base-10 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
|
|
|
|