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

Author

Arran Fernandez, Jul 26 2013

Keywords

• nonn
• cofr

Examples

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

Programs

Mathematica

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

PARI

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