%I #8 Oct 13 2013 10:06:23
%S 1,2,12,396,437580,533035889100,791248706534500395281100,
%T 1743421009870075512394843637096042899735399505100
%N Denominators of convergents of self-generating continued fraction with first term 2.
%C For x > 0, define c(x,0) = x and c(x,n) = [c(x,0), ..., c(x,n-1)]. We call f(x) the self-generating continued fraction with first term x. See A229779.
%H Vincenzo Librandi, <a href="/A229919/b229919.txt">Table of n, a(n) for n = 0..11</a>
%e The first four convergents are 2/1, 5/2, 29/12, 961/396.
%t z = 10; c[x_, 0] := x; c[x_, n_] := c[x, n] = FromContinuedFraction[Table[c[x, k], {k, 0, n - 1}]]; x = 2; t = Table[c[x, k], {k, 1, z}];
%t Numerator[t] (* A229918 *)
%t Denominator[t] (* A229919 *)
%Y Cf. A229779, A229918, A229920.
%K nonn,frac
%O 0,2
%A _Clark Kimberling_, Oct 03 2013
%E a(7) corrected by _Vincenzo Librandi_, Oct 13 2013
|