login
A120187
a(1)=2; a(n) = floor((15 + Sum_{j=1..n-1} a(j))/7).
0
2, 2, 2, 3, 3, 3, 4, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 22, 25, 29, 33, 38, 43, 49, 56, 64, 73, 84, 96, 110, 125, 143, 164, 187, 214, 244, 279, 319, 365, 417, 476, 544, 622, 711, 812, 928, 1061, 1213, 1386, 1584, 1810, 2069, 2364, 2702, 3088, 3529, 4033, 4609
OFFSET
1,1
MATHEMATICA
f[s_] := Append[s, Floor[(15 + Plus @@ s)/7]]; Nest[f, {2}, 59] (* Robert G. Wilson v, Jul 08 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jul 08 2006
STATUS
approved