OFFSET
1,1
MATHEMATICA
Module[{lst={8}}, Table[AppendTo[lst, Floor[(41+Total[lst])/5]], {n, 40}]; lst] (* Harvey P. Dale, Apr 30 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
STATUS
approved