A095706 A095289 with duplicates removed.

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

Links

Table of n, a(n) for n=1..60.

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

Adjacent sequences: A095703 A095704 A095705 * A095707 A095708 A095709

Keyword

base,easy,nonn

Author

Robert G. Wilson v, Jul 05 2004

Status

approved