OFFSET
1,1
MATHEMATICA
ntm[n_]:=Module[{c=Ceiling[10^IntegerLength[n]/n]}, If[c==10, n(c+1), c n]]; NestList[ ntm, 3, 20] (* Harvey P. Dale, Aug 21 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Feb 23 2003
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 06 2003
STATUS
approved