login
A095706
A095289 with duplicates removed.
1
1, 2, 3, 4, 5, 6, 7, 8, 9, 25, 26, 27, 28, 29, 37, 38, 39, 47, 48, 49, 58, 59, 68, 69, 78, 79, 88, 89, 99, 259, 268, 269, 278, 279, 288, 289, 299, 378, 379, 388, 389, 399, 479, 488, 489, 499, 589, 599, 689, 699, 789, 799, 889, 899, 999, 2599, 2689, 2699, 2789, 2899
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
Cf. A095289.
Sequence in context: A095289 A174141 A343403 * A280249 A096867 A100753
KEYWORD
base,easy,nonn
AUTHOR
Robert G. Wilson v, Jul 05 2004
STATUS
approved