A225778 Continued fraction expansion of the smallest positive solution of Gamma(-x)=Gamma(-2x)

0, 2, 1, 50, 3, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 3, 2, 1, 34, 1, 4, 1, 1, 6, 2, 3, 6, 3, 43, 1, 1, 1, 5, 1, 1, 2, 2, 1, 1, 1, 3, 1, 15, 3, 2, 3, 5, 5, 1, 8, 1, 5, 1, 3, 2, 1, 2, 1, 1, 1, 1, 42, 3, 6, 12, 1, 2, 4, 8, 1, 7, 2, 1, 2, 3, 1, 154, 1, 1, 1, 1, 11, 1, 4, 3, 1, 8, 5, 2, 3, 2

Offset

0,2

Links

Table of n, a(n) for n=0..90.

Example

0.335514419... = 0+1/(2+1/(1+...))

Mathematica

ContinuedFraction[FindRoot[Gamma[-x] - Gamma[-2x] == 0, {x, 0.3}, WorkingPrecision -> 100]]

Prog

(PARI) contfrac(solve(x=.3, .4, gamma(-x)-gamma(-2*x))) \\ Charles R Greathouse IV, Jul 26 2013

Crossrefs

Sequence in context: A358857 A109347 A054210 * A271442 A092650 A353586

Adjacent sequences: A225775 A225776 A225777 * A225779 A225780 A225781

Keyword

nonn,cofr

Author

Arran Fernandez, Jul 26 2013

Status

approved