OFFSET
1,1
MAPLE
f:=proc(n) global S; option remember; if n=1 then RETURN(S) else RETURN(f(n-1)-digsum(f(n-1))); fi; end; S:=1000; [seq(f(n), n=1..120)];
MATHEMATICA
NestList[#-Total[IntegerDigits[#]]&, 1000, 100] (* Harvey P. Dale, Mar 28 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 01 2010, based on a suggestion from Chris Cole
STATUS
approved