|
%I #11 Oct 11 2017 05:22:32
%S 1,2,5,7,13,59,413,3881,405331,2845313,17135191,274111423,4924469,
%T 105188,5188129,3877908109,984131084791,152077180227073,
%U 17159732095214477,2637696371523184,12185515744595363
%N a(n) = numerator of sum of the reciprocals of all terms in rows 1 through n of table A126336.
%H Michael De Vlieger, <a href="/A126338/b126338.txt">Table of n, a(n) for n = 1..150</a>
%t 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 *)
%Y Cf. A126336, A126339.
%K frac,nonn
%O 1,2
%A _Leroy Quet_, Dec 25 2006
%E Extended by _Ray Chandler_, Dec 26 2006
|
