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