OFFSET
1,2
EXAMPLE
a(3) = 32103 = 123 * 261.
MATHEMATICA
f[n_] := Module[{upto = FromDigits[Range[n]], downfrom = FromDigits[Reverse[Range[n]]], i = 1}, While[upto - Mod[10^i downfrom, upto] > 10^i, i++ ]; 10^i downfrom + upto - Mod[10^i downfrom, upto]]; Table[f[n], {n, 2, 9}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 22 2002
EXTENSIONS
More terms from Harvey P. Dale, Dec 07 2002
More terms from Sascha Kurz, Jan 04 2003
STATUS
approved