A120186 a(n) = ceiling( Sum_{i=1..n-1} a(i)/7 ), a(1) = 1.

1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 4, 4, 5, 5, 6, 7, 8, 9, 10, 12, 14, 16, 18, 20, 23, 27, 30, 35, 40, 45, 52, 59, 68, 77, 88, 101, 115, 132, 151, 172, 197, 225, 257, 294, 336, 384, 439, 501, 573, 655, 748, 855, 977, 1117, 1277, 1459, 1667, 1906, 2178, 2489, 2845

Offset

1,9

Links

Table of n, a(n) for n=1..65.

Mathematica

f[s_] := Append[s, Ceiling[Plus @@ s/7]]; Nest[f, {1}, 64] (* Robert G. Wilson v, Jul 07 2006 *)

Crossrefs

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

Sequence in context: A229977 A094994 A026839 * A300270 A356068 A255405

Adjacent sequences: A120183 A120184 A120185 * A120187 A120188 A120189

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

Edited and extended by Robert G. Wilson v, Jul 07 2006

Status

approved