%I #4 Jul 15 2012 14:47:00
%S 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,
%T 133,155,181,211,246,287,335,391,456,532,621,724,845,986,1150,1342,
%U 1565,1826,2131,2486,2900,3383,3947,4605,5373,6268,7313,8532,9954,11613
%N a(1)=3; a(n)=floor((20+sum(a(1) to a(n-1)))/6).
%t Module[{lst={3}},Do[AppendTo[lst,Floor[(20+Total[lst])/6]],{100}];lst] (* _Harvey P. Dale_, Jul 15 2012 *)
%Y Cf. A073941, A112088, A072493.
%K nonn
%O 1,1
%A _Graeme McRae_, Jun 10 2006
%E More terms from _Harvey P. Dale_, Jul 15 2012