OFFSET
1,2
MATHEMATICA
f[n_] := f[n] = Block[{k = n}, While[Times @@ IntegerDigits[k] < n, k++ ]; k]; Union[ Table[ f[n], {n, 200}]]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Robert G. Wilson v, Jul 05 2004
STATUS
approved