|
%I #9 Sep 16 2015 04:57:02
%S 1,1,2,5,74,4735,188040808,10740045446796805,
%T 1363118590418849109388908467099944,
%U 31779046363111610229758725291999838369088276597741410196574625989
%N a(n) = numerator of b(n): b(1)=1; b(n+1) = [b(1);b(2),...,b(n)]/b(n), where [...] is a continued fraction of rational terms.
%e a(6) = the numerator of b(6). b(6) = (1 +1/(1 +1/(2 +1/(5/6 +35/74))))*35/74 = 4735/5772.
%t a = {1}; Do[AppendTo[a, FromContinuedFraction[a]/a[[ -1]]], {10}]; Numerator[a] (* _Stefan Steinerberger_, Oct 24 2007 *)
%Y Cf. A128298.
%K frac,nonn
%O 1,3
%A _Leroy Quet_, Feb 25 2007
%E More terms from _Stefan Steinerberger_, Oct 24 2007
|
