OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..3322
FORMULA
a(1)=1, a(n) = n * ceiling(sum{k=1 to n-1} a(k) /n).
MATHEMATICA
f[l_List] := Block[{n = Length[l] + 1}, Append[l, n*(Ceiling[Plus @@ l/n])]]; Nest[f, {1}, 33] (* Ray Chandler, Feb 12 2007 *)
Fold[Append[#1, #2 Ceiling@ Total[#1/#2]] &, {1}, Range[2, 32]] (* Michael De Vlieger, Oct 11 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Feb 11 2007
EXTENSIONS
Extended by Ray Chandler, Feb 12 2007
STATUS
approved