OFFSET
1,2
MATHEMATICA
nxt[{n_, a_}]:={n+1, Floor[(a*10^n)/n]}; NestList[nxt, {1, 1}, 15][[All, 2]] (* Harvey P. Dale, Jan 05 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 11 2004
EXTENSIONS
More terms from N. J. A. Sloane and Stefan Steinerberger, Mar 25 2006
STATUS
approved