%I #7 Apr 09 2014 10:16:30
%S 1,1,1,3,18,720,1119600,2726809311600,16145931379144511904735600,
%T 566327308576692897981544319968226968281922500063600
%N Let r_1 = 1; r_{n+1} = [r_1; r_2, r_3,..., r_n]; n-th term is denominator of r_n.
%C [r_1; r_2, r_3,..., r_n] is a continued fraction, where the r's are rationals. limit{n -> infinity} r_n = 1.7118691868...
%t r[1] := 1; r[n_] := r[n] = FromContinuedFraction[Table[r[i], {i, 1, n - 1, 1}]]; a[n_] := Denominator[r[n]]
%Y Cf. A053978, A064845.
%K easy,frac,nonn
%O 1,4
%A _Leroy Quet_, Oct 31 2001; definition corrected May 04 2008
|