A120180 a(1)=3; a(n)=floor((20+sum(a(1) to a(n-1)))/6).

3, 3, 4, 5, 5, 6, 7, 8, 10, 11, 13, 15, 18, 21, 24, 28, 33, 39, 45, 53, 61, 72, 84, 98, 114, 133, 155, 181, 211, 246, 287, 335, 391, 456, 532, 621, 724, 845, 986, 1150, 1342, 1565, 1826, 2131, 2486, 2900, 3383, 3947, 4605, 5373, 6268, 7313, 8532, 9954, 11613

Offset

1,1

Links

Table of n, a(n) for n=1..55.

Mathematica

Module[{lst={3}}, Do[AppendTo[lst, Floor[(20+Total[lst])/6]], {100}]; lst] (* Harvey P. Dale, Jul 15 2012 *)

Crossrefs

Cf. A073941, A112088, A072493.

Sequence in context: A307912 A274004 A196592 * A339412 A279400 A063197

Adjacent sequences: A120177 A120178 A120179 * A120181 A120182 A120183

Keyword

nonn

Author

Graeme McRae, Jun 10 2006

Extensions

More terms from Harvey P. Dale, Jul 15 2012

Status

approved