A120202 a(n) = ceiling( Sum_{i=1..n-1} a(i)/9), a(1)=1.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 18, 20, 22, 25, 28, 31, 34, 38, 42, 47, 52, 58, 64, 71, 79, 88, 98, 109, 121, 134, 149, 166, 184, 205, 227, 253, 281, 312, 347, 385, 428, 476, 528, 587, 652, 725, 805, 895

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

Cf. A112088, A011782, A073941, A072493, A120160, A120170, A120178, A120186, A120194.

Sequence in context: A376661 A094999 A280951 * A141053 A301507 A005861

Adjacent sequences: A120199 A120200 A120201 * A120203 A120204 A120205

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