login
A120192
a(1)=7; a(n)=floor((55+sum(a(1) to a(n-1)))/7).
0
7, 8, 10, 11, 13, 14, 16, 19, 21, 24, 28, 32, 36, 42, 48, 54, 62, 71, 81, 93, 106, 121, 138, 158, 181, 207, 236, 270, 308, 352, 403, 460, 526, 601, 687, 785, 897, 1025, 1172, 1339
OFFSET
1,1
MATHEMATICA
Module[{lst={7}}, Do[AppendTo[lst, Floor[(55+Total[lst])/7]], {40}]; lst] (* Harvey P. Dale, Sep 06 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
STATUS
approved