OFFSET
1,3
MATHEMATICA
f[l_List] := Block[{n = Length[l]}, Append[l, Sum[ FractionalPart[l[[n + 1 - k]]/k], {k, n}]]]; Denominator[Nest[f, {1}, 23]] (* Ray Chandler, Feb 26 2007 *)
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Feb 17 2007
EXTENSIONS
Extended by Ray Chandler, Feb 26 2007
STATUS
approved