%I #9 Sep 16 2015 04:56:37
%S 1,2,4,24,768,818688,918482792448,1160710851973467480711168,
%T 1851362556448808267346772937519541852218467221504,
%U 188473437767072793673508563952884052289202111379015123907036183743886914255400892747408659578880
%N a(n) = numerator of b(n): b(1)=1; b(n+1) = [b(1);b(2),...,b(n),1], where [...] is a continued fraction of rational terms.
%e a(5) = the numerator of b(5). b(5) = 1 +1/(2 +1/(4/3 +1/(24/17 +1))) = 768/553.
%t a = {1}; Do[AppendTo[a, FromContinuedFraction[Join[a, {1}]]], {10}]; Numerator[a] (* _Stefan Steinerberger_, Oct 24 2007 *)
%Y Cf. A128300.
%K frac,nonn
%O 1,2
%A _Leroy Quet_, Feb 25 2007
%E More terms from _Stefan Steinerberger_, Oct 24 2007
|