%I #9 Oct 10 2019 11:22:24
%S 1,2,6,12,25,48,98,200,396,790,1584,3168,6331,12670,25335,50672,
%T 101354,202698,405403,810800,1621599,3243196,6486391,12972792,
%U 25945575,51891164,103782330,207564644,415129287,830258580,1660517170,3321034336
%N a(n) = the multiple of n which is > (sum{k=1 to n-1} a(k)) and is <= (n + sum{k=1 to n-1} a(k)).
%F a(n) = n * (1+ floor(sum{k=1 to n-1} a(k) /n)).
%t f[l_List] := Block[{n = Length[l] + 1},Append[l, n*(1 + Floor[Plus @@ l/n])]];Nest[f, {}, 33] (* _Ray Chandler_, Feb 12 2007 *)
%Y Cf. A128021, A128022.
%K easy,nonn
%O 1,2
%A _Leroy Quet_, Feb 11 2007
%E Extended by _Ray Chandler_, Feb 12 2007