OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..400
Eric Weisstein's World of Mathematics, Continued Fraction Constants
Eric Weisstein's World of Mathematics, Generalized Continued Fraction
FORMULA
a(n) = denominators of 1/((sqrt(e) * Gamma(n+2))/Gamma(n+2, -1/2) - 1), where Gamma(x, a) is the incomplete Gamma function. - Eric W. Weisstein, Apr 14 2018
EXAMPLE
1, 5/3, 29/19, 233/151, 2329/1511, ...
MATHEMATICA
f[n_] := Fold[ Last@ #2 + First@ #2/#1 &, 2n - 1, Partition[ Reverse@ Range[ 2n - 2], 2]]; Denominator[ Array[ f, 18]] (* Robert G. Wilson v, Jul 07 2012 *)
(* It is interesting to note that FoldList[2 #1*#2 - (-1)^#2 &, 0, Range[19]] matches many of the terms. - Robert G. Wilson v, Jul 07 2012 *)
a[ n_] := If[ n < 0, 0, Denominator[ 1 + ContinuedFractionK[2 i, 2 i + 1, {i, 1, n}]]]; (* Michael Somos, Apr 14 2018 *)
Table[1 + ContinuedFractionK[2 k, 2 k + 1, {k, n}], {n, 0, 20}] // Denominator (* Eric W. Weisstein, Apr 14 2018 *)
Table[1/((Sqrt[E] Gamma[n + 2])/Gamma[n + 2, -1/2] - 1), {n, 0, 20}] // Denominator (* Eric W. Weisstein, Apr 14 2018 *)
PROG
(PARI) {a(n) = my(A); if( n<0, 0, A = contfracpnqn( matrix(2, n, j, i, [2*i, 2*i+1] [j]) ); denominator( 1 + A[2, 1] / A[1, 1]) )}; /* Michael Somos, Apr 14 2018 */
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Eric W. Weisstein, Oct 10 2005
STATUS
approved