|
%I #6 Mar 30 2012 18:57:23
%S 2,3,1,1,2,1,3,2,1,1,2,2,1,3,3,2,1,1,1,2,23,1,1,2,33,1,1,3,1,1,20,5,
%T 40,1,3,1,25,1,2,1,26,1,6,3,1,5,5,7,1,24,5,14,1,1,2,1,8,2,1,1,10,1,1,
%U 2,1,2,2,1440,2,17,1,1,3,4,1,18,2,1,1,1,8,1,5,1,4,18,1,3,5,1,24,3,4,1,1,4,4,1,137,3,1,1,1,6,1,1,7,1,1,2,6,1,1,5,1,2,5,7,1,3
%N Continued fraction for (e+sqrt(-4+e^2))/2.
%e (e+sqrt(-4+e^2))/2=[2,3,1,1,2,1,3,2,1,1,2,2,...]
%t r = E; t = (r + (-4 + r^2)^(1/2))/2; FullSimplify[t]
%t N[t, 130]
%t RealDigits[N[t, 130]][[1]]
%t ContinuedFraction[t, 120]
%Y Cf. A189040.
%K nonn,cofr
%O 1,1
%A _Clark Kimberling_, Apr 15 2011
|
