[go: up one dir, main page]

login
A126338
a(n) = numerator of sum of the reciprocals of all terms in rows 1 through n of table A126336.
4
1, 2, 5, 7, 13, 59, 413, 3881, 405331, 2845313, 17135191, 274111423, 4924469, 105188, 5188129, 3877908109, 984131084791, 152077180227073, 17159732095214477, 2637696371523184, 12185515744595363
OFFSET
1,2
LINKS
MATHEMATICA
f[l_List] := Append[l, ContinuedFraction[Plus @@ (1/# &) /@ Flatten[l]]]; Numerator@ Table[Plus @@ (1/# &) /@ Flatten@ Nest[f, {{1}}, n - 1], {n, 22}] (* Ray Chandler, Dec 26 2006 *)
CROSSREFS
Sequence in context: A348671 A265811 A265793 * A305993 A193718 A007438
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Dec 25 2006
EXTENSIONS
Extended by Ray Chandler, Dec 26 2006
STATUS
approved