A126338 a(n) = numerator of sum of the reciprocals of all terms in rows 1 through n of table A126336.

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

Michael De Vlieger, Table of n, a(n) for n = 1..150

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

Cf. A126336, A126339.

Sequence in context: A348671 A265811 A265793 * A305993 A193718 A007438

Adjacent sequences: A126335 A126336 A126337 * A126339 A126340 A126341

Keyword

frac,nonn

Author

Leroy Quet, Dec 25 2006

Extensions

Extended by Ray Chandler, Dec 26 2006

Status

approved