%I #9 Oct 10 2019 11:21:34
%S 1,1,2,3,5,8,14,25,44,79,144,264,487,905,1689,3167,5962,11261,21337,
%T 40540,77219,147418,282017,540533,1037823,1995814,3843790,7413023,
%U 14314803,27675286,53565070,103782323,201274808,390709922,759093562
%N a(n) = A128020(n)/n.
%F a(n) = 1 + floor(sum{k=1 to n-1} A128020(k) /n).
%t f[l_List] := Block[{n = Length[l] + 1},Append[l, (1 + Floor[Sum[k*l[[k]], {k, n - 1}]/n])]];Nest[f, {}, 37] (* _Ray Chandler_, Feb 12 2007 *)
%Y Cf. A128020.
%K easy,nonn
%O 1,3
%A _Leroy Quet_, Feb 11 2007
%E Extended by _Ray Chandler_, Feb 12 2007
|