Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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