OFFSET
1,1
MATHEMATICA
Do[k = n + 1; s = ToString[k]; While[Mod[ToExpression[s], n] > 0, k++; s = s <> ToString[k]]; Print[k], {n, 1, 100}] (* Ryan Propper, Oct 10 2005 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 03 2002
EXTENSIONS
More terms from Ryan Propper, Oct 10 2005
STATUS
approved