OFFSET
1,2
EXAMPLE
a(5) = 11120, 5 divides 11120, 4 divides 1120, 3 divides 120, 2 divides 20.
MATHEMATICA
f[n_] := Block[{k = n*Ceiling[(10^n - 1)/(9n)]}, While[ Union[ Table[ Mod[ Mod[k, 10^j], j], {j, n}]] != {0}, k += n]; k]; Table[ f[n], {n, 18}] (* Robert G. Wilson v, Sep 24 2004 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 27 2003
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Sep 24 2004
STATUS
approved