OFFSET
1,2
COMMENTS
81 = 9 * 9; 891 = 9 * 99; 8991 = 9 * 999.
MATHEMATICA
ns=Table[10^i-1, {i, 7}]; Take[Union[Join[ns, Flatten[Table[Times@@@Tuples[ns, x], {x, 2, 8}]]]], 50] (* Harvey P. Dale, Jan 19 2011 *)
nMax=10^7; ns=Table[10^i-1, {i, Floor[Log[10, nMax]]}]; u={1}; Do[While[u2=Union[u, Select[i*u, # <= nMax&]]; u != u2, u=u2], {i, ns}]; Rest[u]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 03 2009
EXTENSIONS
More terms from Claudio Meller, Jun 06 2009
Corrected and extended by Harvey P. Dale, Jan 19 2011
STATUS
approved