OFFSET
0,3
FORMULA
a(n) = n * (1 +floor[(a(n-1)+a(n-2))/n]).
MATHEMATICA
f[l_List] := Block[{n = Length[l]}, Append[l, n*(1 + Floor[(l[[ -1]] + l[[ -2]])/n])]]; Nest[f, {1, 1}, 36] (* Ray Chandler, Feb 12 2007 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Feb 11 2007
EXTENSIONS
Extended by Ray Chandler, Feb 12 2007
STATUS
approved