OFFSET
1,4
MATHEMATICA
f[l_List] := Append[l, ContinuedFraction[Plus @@ (1/# &) /@ Flatten[l]]]Length /@ Nest[f, {{1}}, 64] (* Ray Chandler, Dec 29 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 25 2006
EXTENSIONS
Extended by Ray Chandler, Dec 26 2006
STATUS
approved