OFFSET
1,2
EXAMPLE
a(2) = 2, 2 divides 12, a(3) = 3, 213 is a multiple of 3, a(4) = 2, 3212 is a multiple of 4.
a(11) = 4, 103632523214 == 0 (mod 11) where 103632523214 is 10363252321 followed by a 4.
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Block[{k = 1, t = Flatten[ Table[ IntegerDigits[ a[n - i]], {i, n - 1}]]}, While[ Mod[ FromDigits[ Join[t, IntegerDigits[k]]], n] != 0, k++ ]; k]; Table[ a[n], {n, 78}] (* Robert G. Wilson v, Nov 26 2004 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 25 2004
EXTENSIONS
More terms from Robert G. Wilson v, Nov 26 2004
STATUS
approved