|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|