OFFSET
1,2
COMMENTS
Is 888888 the largest number in the sequence?
No more terms through 10^60000. - Robert G. Wilson v, Dec 24 2012
LINKS
Michael Brand, Prove of Finiteness of A185028. Solution of March 2013 Issue of "Using your Head is Permitted" Riddles.
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
Moshe Wolf, Dec 24 2012
STATUS
approved