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)];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 01 2010
STATUS
approved