OFFSET
1,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..150
MATHEMATICA
f[l_List] := Append[l, ContinuedFraction[Plus @@ (1/# &) /@ Flatten[l]]]; Denominator@ Table[Plus @@ (1/# &) /@ Flatten@ Nest[f, {{1}}, n - 1], {n, 24}] (* Ray Chandler, Dec 26 2006 *)
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Dec 25 2006
EXTENSIONS
Extended by Ray Chandler, Dec 26 2006
STATUS
approved