OFFSET
1,1
MATHEMATICA
Module[{lst={3}}, Do[AppendTo[lst, Floor[(20+Total[lst])/6]], {100}]; lst] (* Harvey P. Dale, Jul 15 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
More terms from Harvey P. Dale, Jul 15 2012
STATUS
approved