OFFSET
1,2
MATHEMATICA
Transpose[Select[NestList[{#[[1]]+1, 10#[[2]]+#[[1]]+1}&, {1, 1}, 1000], Divisible[ #[[2]], #[[1]]]&]][[1]] (* Harvey P. Dale, Sep 24 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved