login
A225778
Continued fraction expansion of the smallest positive solution of Gamma(-x)=Gamma(-2x)
0
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
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
KEYWORD
nonn,cofr
AUTHOR
Arran Fernandez, Jul 26 2013
STATUS
approved