A225778 - OEIS

%I #14 Jul 29 2013 05:07:20

%S 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,

%T 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,

%U 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

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

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

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

%o (PARI) contfrac(solve(x=.3,.4,gamma(-x)-gamma(-2*x))) \\ _Charles R Greathouse IV_, Jul 26 2013

%K nonn,cofr

%O 0,2

%A _Arran Fernandez_, Jul 26 2013