|
%I #5 Nov 21 2013 12:48:58
%S 8,9,11,13,16,19,23,28,33,40,48,57,69,83,99,119,143,171,206,247,296,
%T 355,426,512,614,737,884,1061,1273,1528,1833,2200,2640,3168,3802,4562,
%U 5474,6569,7883,9460
%N a(1)=8; a(n)=floor((41+sum(a(1) to a(n-1)))/5).
%t Module[{lst={8}},Table[AppendTo[lst,Floor[(41+Total[lst])/5]],{n,40}]; lst] (* _Harvey P. Dale_, Apr 30 2012 *)
%Y Cf. A073941, A112088, A072493.
%K nonn
%O 1,1
%A _Graeme McRae_, Jun 10 2006
|
