%I #4 Sep 06 2012 16:37:50
%S 7,8,10,11,13,14,16,19,21,24,28,32,36,42,48,54,62,71,81,93,106,121,
%T 138,158,181,207,236,270,308,352,403,460,526,601,687,785,897,1025,
%U 1172,1339
%N a(1)=7; a(n)=floor((55+sum(a(1) to a(n-1)))/7).
%t Module[{lst={7}},Do[AppendTo[lst,Floor[(55+Total[lst])/7]],{40}];lst] (* _Harvey P. Dale_, Sep 06 2012 *)
%Y Cf. A073941, A112088, A072493.
%K nonn
%O 1,1
%A _Graeme McRae_, Jun 10 2006
|