A120192 a(1)=7; a(n)=floor((55+sum(a(1) to a(n-1)))/7).
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
Keywords
Programs
-
Mathematica
Module[{lst={7}},Do[AppendTo[lst,Floor[(55+Total[lst])/7]],{40}];lst] (* Harvey P. Dale, Sep 06 2012 *)