OFFSET
1,11
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 100: # to get a(1) to a(N)
S:= 0: A[1]:= 1:
for n from 2 to N do
S:= S + A[n-1];
A[n]:= ceil(S/9);
od:
seq(A[n], n=1..N); # Robert Israel, Jul 14 2014
MATHEMATICA
a[s_] := Append[s, Ceiling[Plus @@ s/9]]; Nest[a, {1}, 70] (* Robert G. Wilson v, Jul 07 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jul 07 2006
Typo in name corrected by Tom Edgar, Jul 14 2014
STATUS
approved