A128021 - OEIS

%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